howdy smartbuyer,
for the copy paste section use the macro recorder in the developper tab to generate the code
for the rest something like this should do (untested)
Sub RemZer()
Dim lastrow As Long, n As Long
Dim lRow As Long
Dim ws As Worksheet: Set ws = Sheets("Updated Report")
Dim lstrow As Long
Dim iNum As Integer
Dim iFind As Range
Dim strOut As String
Dim lngLoop As Long
Dim Frow As String
Frow = InputBox("first row")
For Each iFind In ws.Range("A" & Frow & ":" & Range("A" & Frow).End(xlDown).Address)
'remove spaces
iFind = Application.WorksheetFunction.Trim(iFind)
'insert lines
If Left(iFind, 1) = "a" _
And Left(iFind.Offset(1, 0), 1) <> "a" _
And iFind <> "" Then
For iNum = 1 To 4 Step 1
iFind.Offset(1, 0).EntireRow.Select
Selection.Insert
Next iNum
ElseIf Left(iFind.Offset(1, 0), 1) = "n" _
And iFind.Offset(-1, 0) <> "" _
And iFind <> iFind.Offset(-1, 0) Then
iFind.EntireRow.Insert
End If
Next iFind
ws.Range("G" & Frow) = "=sum(C" & Frow & Range("C65536").End(xlUp).adress & "("
End Sub
hope it helps!