find next line for data entry

[Decreenisi]

I have an excel spreadsheet, with over 3000 rows. I have to review and
sort daily, then go back to the next blank row and start entering
data. I am looking for a quick macro I can asign to a button that will
take me to the next free row A?.

Tried this ham fisted code, but not working

'find next line for data entry
Dim CurrentRow As Integer 'this variable will be changed
according to the row being searched
CurrentRow = 13

Do
CurrentRow = CurrentRow + 1
Loop While Worksheets("Concern Log").Range("B" & CurrentRow) <> ""

 

[Gary''s Student]

newrow=cells(rows.count,"B").end(xlup).row+1

 

[Decreenisi]

newrow=cells(rows.count,"B").end(xlup).row+1

Thanks, have tried this but can't get it to work.... have found this
one on the web which seems OK

Range("B13").End(xlDown).Offset(1, 0).Select

 

[Gord Dibben]

Range("B13").End(xlDown).Offset(1, 0).Select

The code above will work if there are no blank cells in column B between top and
bottom.

If you truly want to get to the bottom of A try this.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub


Gord Dibben MS Excel MVP

 

[Gord Dibben]

"Bottom of A" should have read "bottom of B"

Change also to Rows.Count, 2 for column B


Gord