How to Sort the Data using Excel VBA Macro

Excel VBA Macro to Sort the  Data Based on a Particular Column
Sub SortData()
Dim X As Integer
On Error GoTo Label

X = InputBox("Enter The SortBase Column:")
    Columns(X).Select
    
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.ADD Key:=Cells(1, X), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
        
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:z1000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Label:
End Sub

Thanks,Tamatam