Endnu engang en tak for dit forsøg, som har givet mig ide til et andet ark til registrering af en anden arbejdsproces.
Jeg fandt ud af en løsning på min sortering:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Range("A1").Sort Key1:=Range("A2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub