I'm still not quite sure what you want to do.
Do you want to add a row before or after b7?

Range("b1").End(xlDown).Row+1 'finds next row
cells(rows.count,"b").end(xlup).row+1'finds lastrow +1

--
Don Guillett
SalesAid Software

"Clare" wrote in
message ...

Don
This is the code I have, and i want this to either be added in a new
row (as there is other information below this line) or add a new row
after the form adds the information to the spreadsheet?


Private Sub CommandButton1_Click()

ActiveWorkbook.Sheets("Jobs").Activate

Range("B7").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = Job_No
Range("B7").Select

End Sub


--
Clare
------------------------------------------------------------------------
Clare's Profile:
http://www.excelforum.com/member.php...o&userid=36047
View this thread: http://www.excelforum.com/showthread...hreadid=558384