VBA Question and Answer, paste answers to specific sheet and cell

[Will85]

I am trying to up my VBA.

Currently I have three cells with three questions in A1 through C1

First Name?
Last Name?
Account Number?

A user enters the information in B1 through C1, pushes a button and I have VBA that copies that information to the last row of a different sheet then clears the data.

Ideally, I would rather have one macro button that just says "Insert New Account", then asks three questions with three sperate boxes for the user to input the data, then copies takes that user inputted data and pastes it to the last row of a different sheet.

Example. Click button "New Customer"

vba question First Name?
answer Willy

vba question Last Name?
answer Wonka

vba question Account Number
answer 155

vba goes to sheet2 finds the first blank row (assume its row 1099) and copies Willy to A1099, Wonka to B1099, and 155 to C1099

 

[My Aswer Is This]

Try this using sheet named "Bravo"
Modify sheet name to your needs

Sub Ask_Me()
'Modified  4/4/2022  10:25:30 PM  EDT
Dim Lastrow As Long
Lastrow = Sheets("Bravo").Cells(Rows.Count, "A").End(xlUp).Row + 1
Dim ans As String
Dim anss As String
Dim ansss As String
ans = InputBox("Enter First Name")
anss = InputBox("Enter Last Name")
ansss = InputBox("Enter Account Number")

With Sheets("Bravo")
    .Cells(Lastrow, 1).Value = ans
    .Cells(Lastrow, 2).Value = anss
    .Cells(Lastrow, 3).Value = ansss
End With
End Sub