A maneira "mais fácil" de fazer isso é usando o gravador de macro.
Vai ficar tipo assim:
Range("B1").Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
(Tem a mesma função de copiar e colar especial)