Add Data from User Form at Top Row below Headers with Excel VBA

How do I add data from user-form at top row below headers in Excel worksheet rather than the last row of the spread sheet so that my record shows most recent activities at the top. Watch the training video below:

Watch this video on YouTube.

Complete VBA or macro code for the command button to transfer data into the top row from the user-form into the Excel worksheet on click:

Private Sub CommandButton1_Click()
If Range(“a2”) <> “” Then
selection.Insert shift:=xlDown
End If

If Range(“a2”) = “” Then
Range(“a2”) = TextBox1.Text
Range(“B2”) = TextBox2.Text
End If

TextBox1.Text = “”
TextBox2.Text = “”
End Sub