How do I locate the last cell in a row with data in it

[bucci35]

I have a row of data and I need to locate the last cell in the row that has data in it by cell number.

 

[Legacy 68403]

try the following code

Sub test()
Range("A1").select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

 

[Smitty]

How about (searching column A; change to suit):

Sub foo()
  MsgBox "Last Row is cell: " & Cells(Rows.Count, "A").End(xlUp).Address
End Sub

Or natively:

Edit-->Goto-->Special-->Last Cell.

Hope that helps,

Smitty

Damnnn, Welcome to the Board!