Create Range Based On Last Row

[Claymationator]

I have a range of data that I need to create in VBA based on the last row in the worksheet. In column A I have values that includes blank cells, and I need to create a range from A1 to A__ based on the last row in the workbook.

Any help is appreciated.

 

[VoG]

Try

Dim LR As Long, MyRange As Range
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Set MyRange = Range("A1:A" & LR)