Macro - Create / Copy / Paste Formula every 5 rows for varying range

Sub Delete_Empty_Rows_In_Column_C()

With Columns("C").SpecialCells(xlCellTypeBlanks).Cells
    .EntireRow.Delete Shift:=xlUp
  End With
  If Err.Number <> 0 Then MsgBox "There are no empty cells"
 End Sub