I have a macro that will such a column for a specific value and then insert a row above that value. I would like to add the ability for it to copy the formatting of the row above when it inserts the row. Meaning if the value is in row 8, it would copy the format of row 7, so the newly inserted row 8 equals the format in row 7, and now the value has shifted to row 9. Here is my macro:

Sub FullServInsert()
Dim i As Long
For i = Range("B" & Rows.Count).End(3).Row To 2 Step -1
If Cells(i, "B") = "ADDITIONAL SERVICES" Then
Rows(i).Insert
Rows(i).PasteSpecial xlPasteFormats
End If
Next i
End Sub