Zkuste to makrem:

Sub copy1()
'
' copy1 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
    Application.Run "PERSONAL.XLS!CopyFormat"
    ActiveCell.Offset(3, 0).Range("A1").Select
End Sub