Sub test4()
Dim usersname As String
Dim TheAddress As String
Dim PhoneNo As String
usersname = InputBox("Please enter your name")
TheAddress = InputBox("Please enter your address")
PhoneNo = InputBox("Please enter your telephone number")
Range("$A$1").Value = usersname
Range("$A$2").Value = TheAddress
Range("$A$3").Value = PhoneNo
End Sub
Sub test4()
Dim usersname As String
Dim TheAddress As String
Dim PhoneNo As String
Dim LastRow As Object
Set LastRow = Sheets("Sheet1").Range("A65536").End(xlUp)
usersname = InputBox("Please enter your name")
TheAddress = InputBox("Please enter your address")
PhoneNo = InputBox("Please enter your telephone number")
LastRow.Offset(1, 0).Value = usersname
LastRow.Offset(1, 1).Value = TheAddress
LastRow.Offset(1, 2).Value = PhoneNo
End Sub
pennysaver said:Adding a bit to Iridium's original code:Hope that helps,Code:Sub test4() Dim usersname As String Dim TheAddress As String Dim PhoneNo As String Dim LastRow As Object Set LastRow = Sheets("Sheet1").Range("A65536").End(xlUp) usersname = InputBox("Please enter your name") TheAddress = InputBox("Please enter your address") PhoneNo = InputBox("Please enter your telephone number") LastRow.Offset(1, 0).Value = usersname LastRow.Offset(1, 1).Value = TheAddress LastRow.Offset(1, 2).Value = PhoneNo End Sub
Smitty