Hi guys,

I have the following code that works well just after opening the file but gets slower and slower as the loops progress. I'm copying and pasting formulas from 'FormulaRange' to 'DestinationRange' (variable). I feel like I'm not cleaning up something, which is slowing it down. I'd like to keep it running at optimum speed the entire process. Any tips?

Sub CopyPasteDown()

Application.ScreenUpdating = False

Dim r As Integer
For r = Range("J1") To Range("L1")

Dim FormulaRange As Range
Set FormulaRange = Range("A4:YY4")
Dim DestinationRange As Range
Set DestinationRange = Range(Cells(r, 1), Cells(r, 674))
Dim FirstCell As Range
Set FirstCell = Cells(r, 1)

FormulaRange.Select
Selection.Copy
FirstCell.Select
ActiveSheet.Paste

'FormulaRange.Copy DestinationRange - not working - I have a UDF that doesn't calculate when I use this so used the long way

DestinationRange.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Next r

Application.ScreenUpdating = True

End Sub
Cheers, Rob