set cell = Worksheets("Sheet2").Range("A2")
do while not isemtpy(cell)
set cell = cell.offset(1,0)
Loop
Cell.Value = Userform1.Textbox1.Text
cell.offset(0,1).Value = Userform1.Textbox2.Text

--
Regards,
Tom Ogilvy




"phoenixx153" wrote in message
...
Hi all,

I'm trying to write a macro so that when information is entered into a
form
I have created it will be inputed automatically into one of the worksheets
when I hit the submit button. I have been able to do this but need it to
recognise that if there is all ready information in that line rather than
overwriting the information, it skips down to the next line where there is
no
information.

Is this possible?