Find Last Row and select range

[nkustura]

Hi,

I need some help with a macro. I need a macro that will find last row/cell on a spreadsheet that has data and select a range from first row to the last row with data that was just found.

All help is greatly appreciated.

Thanks,
Nermina

 

[VoG]

Try this

Sub Test2()
Dim LR As Long, LC As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Range("B1").Copy Destination:=Range("A" & LR)
End Sub

 

[nkustura]

Thanks. This really helps.