Macro para consolidar datos en forma relativa

A quien me pueda ayudar tengo esta macro que hice con la grabadora de macros es para consolidar datos. La macro funciona bien pero necesitaría que cuando seleccione el rango que va consolidar la selección sea relativa es decir abarque las filas con datos me explico que no llegue hasta la 1048576

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