Seleccionar rango, no fijo.

Puedes utilizar el siguiente código para ordenar desde A1 hasta la última fila y columna con datos por la columna A y B
Sub ordena()
    'obtienes el total de filas desde A1
    Range("A1").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
        fila = ActiveCell.Row
    Loop
    'obtienes el total de columnas desde A1
    Range("A1").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
        columna = ActiveCell.Column
    Loop
    Range("A1").Select
    'Seleccionas rango de datos
    ActiveSheet. Range(Cells(1, 1), Cells(fila - 1, columna - 1)).Select
    'Ordena el rango de datos
    'OJO Especificar hoja
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range(Cells(2, 1), Cells(fila, 1)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range(Cells(2, 2), Cells(fila, 2)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range(Cells(1, 1), Cells(fila - 1, columna - 1))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Pruébalo y si tienes duda me comentas