VBA to insert a blank row

[kenpcli]

I need to insert a blank column, then a blank row after a5 and insert a header with the following data:

A5= Merge Cells, B5=Site, C5=Ins. Co., D5= Chg Amt, E5= Pay Amt, F5= Adj Amt, G5=Ref Amt, H5= Bal Amt, I5=Amount Billed, j5= CA%

 

[Fluff]

How about

Sub AddRow()

   Columns(1).Insert
   Rows(6).Insert
   Range("A5:C5").Value = Array("MergeCells", "Site", "Ins")
   Range("I5:J5").Value = Array("Amount Billed", "CA% ")
   
End Sub

 

[kenpcli]

How about

Sub AddRow()

   Columns(1).Insert
   Rows(6).Insert
   Range("A5:C5").Value = Array("MergeCells", "Site", "Ins")
   Range("I5:J5").Value = Array("Amount Billed", "CA% ")
   
End Sub

Thanks, that works.

 

[Fluff]

Glad to help & thanks for the feedback.

 

[Fluff]

For reference, you can add this to the other 2 subs I've supplied like

Sub kenpcli()

   Dim Ar As Areas
   Dim Rng As Range
   Dim ValU As Long
   
   With Sheets("Analysis")
      Set Ar = .Range("A6:A" & .Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
      For Each Rng In Ar
         Rng.Value = Evaluate("VLookup(" & Rng.Offset(-1).Resize(1).Address & ",'Legend Site'!A1:B1000, 2, False)")
      Next Rng
   End With
   
   Columns(1).Insert
   Rows(6).Insert
   Range("A5:C5").Value = Array("MergeCells", "Site", "Ins")
   Range("I5:J5").Value = Array("Amount Billed", "CA% ")
   
   With Columns(3)
      .Replace "Totals For SELF PAY", True, xlWhole, , False, , False, False
      Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
      .Replace True, "Totals For SELF PAY", xlWhole, , False, , False, False
   End With
   For Each Rng In Ar
      Rng.EntireRow.Copy Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
      Rng.EntireRow.Delete
   Next Rng

End Sub

 

[kenpcli]

it doesn't like
Set Ar = .Range("A6:A" & .Range("C" & rows.Count).End(xlUp).row).SpecialCells(xlBlanks).Areas

it says Expected Function or variable.