Hi

I cut and pasted it and it works, just needed to change the secon
offset(1,1) to offset(0,1).

The problem is now that i don't understand what and why you did it an
the other major problem is that for this task, i have to incorporate
do until loop into the code. So even if you do have the time to explai
it to me, it won't be able to help me much unless i can fulfil the othe
criteria.

I've been playing around with the do until loop and got to a stag
where it just kept filling in my entry infinitly and i had t
ctrl-alt-del and end the task. So im still getting nowhere fast.



Worksheets("Sheet2").Select <--Select sheet2
Range("A2").Select <--Select cell A2

Range("A65536").End(xlUp).Offset(1, 0).Value = FirstName <-- Here i
where i get confused. I've only come across Range with cell values an
not a combination of numbers and letters. What does it mean?And wha
does the End(xlUp) mean?.

Range("A65536").End(xlUp).Offset(0, 1).Value = SurName

For Each r In Range("A1:A" & Range("A65536").End(xlUp).Row)
If r.Value = "" Then <--- What does r.Value mean?
r.Value = FirstName
r.Offset(0, 1).Value = SurName
Exit For
End If
Nex

--
nhan
-----------------------------------------------------------------------
nhanh's Profile: http://www.excelforum.com/member.php...fo&userid=1501
View this thread: http://www.excelforum.com/showthread.php?threadid=26670