Cómo crear un Rango dinámico con Macros secreto revelado

Sub RANGO_DINAMICO()
Dim fila As Integer
fila = Range("A1").End(xlDown).Row
Debug.Print fila
Range("A1:E" & fila).Select
End Sub