Sub test()

LastRow = Cells(Rows.Count, "L").End(xlUp).Row
LastCol = Cells(4, Columns.Count).End(xlToLeft).Column
Set MyRange = Range("L4", Cells(LastRow, LastCol))
MyRange.Select
End Sub
"Little Penny" wrote:

How do I select cell L4 to last cell?