L'esempio che segue copia il range a1:b3 del foglio 1 nel foglio 2 preservando la formattazione

codice:
Sheets(1).Range("a1:b3").Copy Destination:=Sheets(2).Range("a1")