Sub FindLastRow()

Dim lngLastRow As Long

' find last row in Column A
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Set rngMyRange = ActiveSheet.Range(Cells(9, "AS"), Cells(lngLastRow, "AS" ))

MsgBox rngMyRange.Address

End Sub

Hope this helps! If it does click "Yes" below.

Thanks,
--
Cheers,
Ryan


"jonnybrovo815" wrote:

I need to select a range starting from the active cell 9 in column AS and a
variable number of rows down based upon last entered cell in column A.

Does anyone know how to go about doing this?