Hi xLBaron
Many thanks for that. I will definitely use this in future projects
Regards
John
"xLBaron" wrote:

JohnUK -

May want to use something like this for multiple copy downs

Sub patches()

'Set the Data in Column B to be Range
Dim X As Range
Set X = Range("A1").Range(("B1"), Range("B1").End(xlDown))

'Copy Formula in "A1" down Column "A"
Range("a1").Copy
X.Offset(0, -1).Select
ActiveSheet.Paste


'Copy Formula in "F1" down Column "F"
Range("F1").Copy
X.Offset(0, 4).Select
ActiveSheet.Paste


'Copy Formula in "I1" down down Column "I"
Range("I1").Copy
X.Offset(0, 7).Select
ActiveSheet.Paste

Range("A1").Select
Application.CutCopyMode = False

End Sub