try this

Sub tt()
lastcell = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(lastcell, "a").Value = InputBox("First Name")
Cells(lastcell, "a").Offset(, 1).Value = InputBox("last name")
End Sub

--
Don Guillett
SalesAid Software

"nhanh" wrote in message
...

Hi,

I'm trying to use the Do loop in my coding but am getting no where.

I have already prompted the user with an input box asking for their
name.

I have a list of names in sheet2
My aim is to start at the beginning of the list and move down the
column one cell at a time until i reach an empty cell. When I get to
the empty cell, i want input the new name that the user has just
inputed.

Currently i have:


Public Sub AddNames()

Worksheets("Sheet1").Select
Range("B2").Select

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue = FirstName

Dim SurName As String
SurName = InputBox("What is your surname?", "Surname Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Of fset(0, 1).Value =
SurName

Worksheets("Sheet2").Select
Range("A2").Select

Do Until IsEmpty(ActiveCell)

ActiveCell.Value = FirstName
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SurName

Exit Do
Loop


I am sure there is something wrong with the coding after "Do
Untill...". Any help would be REALLY appreciated. Thanks


--
nhanh
------------------------------------------------------------------------
nhanh's Profile:
http://www.excelforum.com/member.php...o&userid=15019
View this thread: http://www.excelforum.com/showthread...hreadid=266706