Sheets("Sheet1").Range("A1").Copy Destination:=Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("B2").Copy Destination:=Sheets("Sheet2").Range("B1")
Sheets("Sheet1").Range("C3").Copy Destination:=Sheets("Sheet2").Range("C1")
Sheets("Sheet1").Range("D4").Copy Destination:=Sheets("Sheet2").Range("D1")
Sheets("Sheet1").Range("E5").Copy Destination:=Sheets("Sheet2").Range("E1")
・
・
・
規則だっていない転記であれば、必要行数書かなければならないと思いますが、このようにシート参照を毎行同じ記述をするのはもう少し整理できそうです。
With Sheets("Sheet1")
.Range("A1").Copy Destination:=Sheets("Sheet2").Range("A1")
.Range("B2").Copy Destination:=Sheets("Sheet2").Range("B1")
.Range("C3").Copy Destination:=Sheets("Sheet2").Range("C1")
.Range("D4").Copy Destination:=Sheets("Sheet2").Range("D1")
.Range("E5").Copy Destination:=Sheets("Sheet2").Range("E1")
・
・
・
End With
「
Dim SH1 As Worksheet, SH2 As Worksheet
Set SH1 = ThisWorkbook.Worksheets("Sheet1")
Set SH2 = ThisWorkbook.Worksheets("Sheet2")
With SH1
.Range("A1").Copy Destination:=SH2.Range("A1")
.Range("B2").Copy Destination:=SH2.Range("B1")
.Range("C3").Copy Destination:=SH2.Range("C1")
.Range("D4").Copy Destination:=SH2.Range("D1")
.Range("E5").Copy Destination:=SH2.Range("E1")
・
・
・
End With
いかがでしょう。動作以外でも