Nahrání makra není problém, jen nevím zda by nebylo lepší řešení než:
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13").Selectcitovat
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13").Selectcitovat