try this
Sub test()
Sheets("Filter Test").Select
'Insert columns for filter forumulas
Range("C4").Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
'fill in blanks is column C,D and E
Range("B3:E3").Selec
The attached is a worksheet that I'm working with, actually the data
runs to over 100,000 lines, but I have shortened the example. Macro1
contains a formula that I wish to place into cells D4 to E9, then copy
and paste to the end of the data.
Note, each block is a set of 5 line for one part