Code to go to last row (next blank row)

M

miker1999

Hi all,
I would like to create a command botton (macro) that would bring th
user to the last row (which is typically the next blank row) so the
can input data in that row.

I am stuck...thanks
 
F

Frank Kabel

Hi
maybe the shortcut CTRL+END is all you need (move the cursor to the
last row with data)

Frank
 
G

Gord Dibben

miker

Sub findbottom()
Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Activate
End Sub

Will select first blank row below data in Column A.

Note: excludes any blank rows interspersed throughout above the last row with
data because it starts from the bottom of the column and checks upward.

Gord Dibben Excel MVP
 
T

Tom Ogilvy

if the determination can be made on column A

cells(rows.count,1).end(xlup)(2).Select
 
M

Max

Maybe one row after?, for the "next blank row":

ActiveCell.SpecialCells(xlLastCell).offset(1,0).Select
 
M

miker1999

Thank you all. I went with Tom's Suggestion since I had conditiona
formatting and formulas through the "empty" rows...

Thank you all for replying
 
Top