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 selectall()
ActiveSheet.UsedRange.Select
End Sub

 

[nkustura]

Thanks for the instant resposne.

Will this macro also select rows that might not have data but might have some formating?

Thanks,
Nermina

 

[VoG]

Yes it will. Is that a problem?

 

[nkustura]

I don't really need to select rows with formating only. I just need to select rows that have data in them.

Another question that tags onto this one is: After I find last row, I need to insert "product" i every cell in column A for that range of first row to last row with data. Ex. if last row happens to be 237 then I need to have work "product in cells A1 thru A237.

Thank you so much for your help, I really appreciate it.

-nermina

 

[VoG]

Does this work as expected?

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(Cells(1, 1), Cells(LR, LC)).Select
End Sub

 

[nkustura]

I get Msg Box with 400 when I run this macro.

 

[VoG]

It works for me unless the sheet is empty.

 

[nkustura]

This is weird. I re-wrote the code in different workbook and it worked fine. Thank you so much for your help.

 

[nkustura]

I need to make one more tweak to this macro. Now that I know how to make it find last row with data on the spreadsheet, I need to copy value from cell B1 and paste into range (A1:LastRow with data). How can I do this?

Thanks,
Nermina