Insert a new row for an entry

[RJ1969]

Hello,
Is there anyway to modify this code and instead the entry goes in the last entry.
What I need is to insert a new in row 11 and my new entry will in row 11. So everytime that I make a new entry it will insert a new row from row 11.

I want the new entry on the top that start in row 11 instead at the end.

Hope this is possible. Thank you.

Private Sub cmdAdd_Click()
Dim LastRow
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
    
 ActiveSheet.Range("A" & LastRow).Value = Format(Date, "mm/dd/yyyy")
 ActiveSheet.Range("A" & LastRow).Offset(0, 1) = Me.reg2.Value
 ActiveSheet.Range("A" & LastRow).Offset(0, 2) = Me.reg3.Value