Dim src As Worksheet
Dim trg As Worksheet
Dim LastRow As Long

Set src = ThisWorkbook.Worksheets("Report0")
Set trg = ThisWorkbook.Worksheets("Report1")

src.Range("A:A").Copy Destination:=trg.Range("A1")
src.Range("D:D").Copy Destination:=trg.Range("B1")
src.Range("B:B").Copy Destination:=trg.Range("C1")
src.Range("H:H").Copy Destination:=trg.Range("D1")
src.Range("J:J").Copy Destination:=trg.Range("E1")
src.Range("G:G").Copy Destination:=trg.Range("F1")