Adding a new number row but clearing contents of new role

Hi all, I am currently working on a mini excel project where I need to add a new numbered row (i.e 2 to 3 to 4) but with my new rows having cleared contents.

My code right now is the following and I can' t remember how to add the number row. Any help is greatly appreciated. Thank you.

Private Sub CommandButton1_Click()

 Dim varUserInput As Variant
 varUserInput = InputBox("Enter Row Number where you want to add a row:", _
  "What Row?")
 If varUserInput = "" Then Exit Sub

RowNum = varUserInput
    Rows(RowNum & ":" & RowNum).Insert Shift:=xlDown
    Rows(RowNum - 1 & ":" & RowNum - 1).Copy Range("A" & RowNum)
    Range(RowNum & ":" & RowNum).ClearContents
    
End Sub

I'm confused. To me your code already does what you are asking it to do. What am I missing?

To clarify, my spreadsheet on Col A is numbered but I am trying to automated it so that when adding a new row that it keeps it numbered but clear the contents of cell B to E for the new row.

Thank you xladept, I have added rep to you. Just one quick question, since Column A is still static with the numbering of rows. How would i go about in making the numbering automated so that when you add a row, it becomes the next number in sequence?