Excel - Macro para establecer un rango

Hola buenas tardes espero me puedan ayudar ya que ando bien atorado.

Miren tengo lo siguiente

Quiero ordenar tomando como criterio la columna "A" de la A1 a la D144 donde tengo datos de venta la fila 144 contiene el "Total General" solo que este rango varia por hoja de calculo es decir tengo 10 hojas con cada sucursal entonces si en una el rango es A1:D144 en la otra hoja es A1:D229, como puedo hacer una macro para que por hoja me tome como rango de A1 al Final de la hoja?

Espero en verdad puedan ayudarme, es urgentisimo.

Se los agradezco en verdad oh sabios del VBA

Francisco hay varias formas la que yo mas uso si es para ver tablas de datos en el PC (no imprimirlas) prefiero los totales en las primeras filas de la hoja sobre los títulos con una fila de por medio además porque teniendo los titulos inmovilizados siempre estaré viendo los totales y de esta forma no me interfieres para trabajar con los datos.

Otra forma sería que con tu misma macro insertaras una fila antes de la ultima linea (es decir los totales) y ahi si proceder luego con ella a ordenar los datos y si quieres con la misma macro vuelves a quitar la fila anteriormente agregada.

Espero haberte ayudado

Saludos desde Pereira Colombia

Muy buenas,

estoy dando unos primeros pasos en macros y he intentado hacer lo que quieres. Supongo que siguiendo tu ejemplo, en el primer caso la fila 144 no la querrías ordenar. Mira a ver si te funciona esta macro

Sub ordenar()
For i = 1 To Sheets.Count
Worksheets(Sheets(i).Name).Activate
Worksheets(Sheets(i).Name).Range("a1", Worksheets(Sheets(i).Name).Range("D1").End(xlDown).Offset(-1, 0)).Select
Selection.Sort Key1:=Worksheets(Sheets(i).Name).Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next i
End Sub

Por si acaso, haz copia de tu libro antes.

Ya me dirás. Un saludo.

Excelente solucion te lo agradezco me sirvio mucho imaginate si estas dando tus primeros pasos yo todavia estoy gateando.

Gracias.