In a standard module include:

Sub Foo()
Dim blankrow As Long
blankrow = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row ' Toms line
Range("A" & blankrow).Value = "something" 'Adjust
to suit
End Sub

Jim


"MAWII" wrote:

Thanks, Tom. The problem I'm having is the next step. Having found the next
blank row, now how do I enter data into that row?

"Tom Ogilvy" wrote:

blankrow = cells(rows.count,"A").End(xlup).offset(1,0).row

uses column 1 to find the next blank cell. Adjust to suit.
--
Regards,
Tom Ogilvy


"MAWII" wrote:

I'm building a userform for test data entry that currently asks for 22 pieces
of information. I'm trying to take that information and enter it into the
next blank row in the spreadsheet. This seems like a rather basic task, but
I'm struggling. Please help! Thanks!

Mark