Solved: in Excel 2007, pasting to visible cells only

[mdmackillop]

You may need to set the colorindex value for your own PC
[VBA]Sub Copies()
Dim Rng As Range
Dim Fmla As Range
Set Fmla = Range("D2:J2")
Set Rng = Range(Range("D2").Offset(1), Range("D2").Offset(1).End(xlDown)).Resize(, 7)
Fmla.Copy
With Rng.SpecialCells(xlCellTypeVisible)
.PasteSpecial (xlPasteFormulas)
.Interior.ColorIndex = 36
.Cells(1).Select
End With
Application.CutCopyMode = False
End Sub
[/VBA]