Setting a cell equal to a variable in excel - vba?

I get the error message Object Required

Here is an edited version of the code to only include my error section:

Public Sub CommandButton1_Click()

Application.EnableCancelKey = xlDisabled

Dim First_Name As String

While First_Name = "Enter First Name Here. Ex. John" Or First_Name = ""

First_Name = Application.InputBox("Enter New Employee First Name.", "First Name", "Enter First Name Here. Ex. John")

Sheets("Sheet2").Range("A1").Select

Do Until IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Select

Loop

Target.Value = First_Name

Wend

End Sub

At the line: target.value = First_Name

I get runtime 434 --> "object required"

What is wrong with the code?

Verbal summary of what I want the code to do:

Have user enter name into Input box.

Take that name and place it into the next empty cell on "Sheet2", Column "A"

I'm in the beginner stages of learning VBA. I am open to any suggestions or criticisms of my code

I left out many other input boxes, error checks, and password to begin script as i felt it irrelevant.