Rango dinámico en una macro

Hola !!

Tengo mucho tiempo fuera de este grupo de noticias, hace algunos años
pude compartir algunas experiencias con los miembros. Saludos !!

En esta oportunidad tengo una duda a ver si alguien me puede ayudar.

En esta pequeña macro:
Sub Agrupar_Antiguedad()
Columns("S:S").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("S1").FormulaR1C1 = "antigüedad"
Range("S2").FormulaR1C1 = _

"=IF(ISBLANK(RC[-1]),"""",IF(VALUE(RC[-1])<,""15"",IF(VALUE(RC[-1])<0,""30"",IF(VALUE(RC[-1])<`,""60"",IF(VALUE(RC[-1])<,""90"","">90"")))))"
Range("S2").Select
Selection.AutoFill Destination:=Range("S2:S70")
End Sub

Quiero saber al momento de crear el rango, que no sea hasta la fila 70
(Range("S2:S70") sino que sea hasta la ultima fila que tiene datos,
debido que el archivo puede creer en numero de filas indiscriminadamente.

Agradeciendo el apoyo que me puedan brindar

Saludos
César