Insert the following near the beging of your code:

Range("B65536").Select
Selection.End(xlUp).Select

If you want the row number:
r = ActiveCell.Row

"GJR3599" wrote:

How do I code a macro (or keystroke it) to find the last row that has data in
a column without harcoding the macro to a specific row? I have sections of
data (every 6th row is blank) and I want to be able to find the absolute last
row that has data in it for column B no matter where that last row is. Thanx.