Sub SortDataWithoutHeader()
Range("A1:B12").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
End Sub

'Key = start point, primary coloumn
'Order = type of sorting 
'If yes, sorting with start Key+1 to avoid the header