Insert Row and popoulate cells based on user input

[stroffso]

Hi,

I have the below code that I doesnt appear to be working as I want. I would also like to add to it but not sure how. What I need it to do is:
Displays input box which allows me to enter name
This name then gets placed in every row of the workbook (in Column B) in the same place 2 rows above where the last row is populated
Then has to ensure that the formulas and formats for the row above are all copied down into the row that has been inserted.



Sub insertnewname()
Dim LastRow As Long
Dim RowNdx As Long
Dim strToadd As String
LastRow = Cells(Rows.Count, "B").End(xlUp).row + 2
strToadd = InputBox("Enter Name to Add")
For RowNdx = 2 To LastRow Step 96


Cells(LastRow, 2).Value = strToadd


Next RowNdx
End Sub


thanks in advance