Copy Paste Formulas - Any Speed Tips?

Not sure if this is what you're after or whether it's much faster. Test on a copy first.

Sub killerkoz17()
Dim r As Integer
Dim FormulaRange As Range
Dim DestinationRange As Range
Application.ScreenUpdating = False
Set FormulaRange = Range("A4:YY4")
For r = Range("J1") To Range("L1")
Set DestinationRange = Range(Cells(r, 1), Cells(r, 674))
DestinationRange.Value = FormulaRange.Value
Next r
Application.ScreenUpdating = True
End Sub

Thanks for the response John. I'm actually trying to copy and paste formulas, rather than values, so this didn't work (just pasted the values in every row). It's a reasonably simple macro. I guess there are three things I'm trying to improve:

1) avoid "selecting"
2) store the formulas in the 'FormulaRange' as a single variable (if possible, to avoid copying them every loop)
3) clean up each loop to avoid storing information and clogging up speed.

All ideas appreciated. I'm using this macro a lot!