Sortieren bis zur letzten beschriebenen Spalte

Public Sub Sortieren()
Dim Sortieren As String, lngSpalte As Long, z As Long, Mldg As Variant
Dim Adr, ww As String
Adr = ActiveCell.Address()
ww = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
Mldg = "Geben Sie für die gewünschte Spalte A,B,C,... oder die Spaltennummer ein" _
& Chr(13) & Chr(13) & "Sie können die Spalte:   " & ww _
& Chr(13) & Chr(13) & "übernehmen oder ändern !"
Sortieren = InputBox(Mldg, "Spaltensortierung", ww, 4500, 5000)   '2 von oben
On Error GoTo fehler
If Not IsNumeric(Sortieren) Then
lngSpalte = CLng(Columns(Sortieren).Column)
Else
lngSpalte = CLng(Sortieren)
End If
If 0  0 Then Err.Clear
MsgBox "Sie haben agebrochen . . ."
End If
End Sub