Ještě jednou upravené makro. Začít tek, že v první buňce (H5) bude odkaz na C5 (=C5).
Makro zkopíruje vzorec o řádek níž s odkazem na buňku o řádek níž, a potom odkaz přesune o další tři řádky niž atd.

Sub COPY4()
'
' COPY4 Makro
' Makro zaznamenané 20.7.2010, Mirek
'

'
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(3, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-4, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(3, 0).Range("A1").Select
    Application.CutCopyMode = False
End Sub