Consolidar datos en forma relativa

Tengo esta macro que hice con la grabadora, necesitaría que la selección del rango a consolidar sea relativo es decir que el tamaño varíe y que no tome la fila 1048576 sino que abarque la selección

Sub a()

Range("A3").Select
Selection.Consolidate Sources:= _
"'C:\Users\Eduardo\Desktop\[Libro3.xlsm]PENDIENTES'!R5C2:R1048576C7", Function:= _
xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
With ActiveWorkbook.Worksheets("Hoja1").Sort
.Apply
End With
Range("A9").Select
End Sub