Copy specific range to offset location

How about:

Sub copy()
Dim rng As Range: Set rng = ActiveCell.Resize(9, 1)
With rng
    .Value = Sheets("Sheet1").Range("A2:A10").Value
    .Offset(0, 1).Value = Sheets("Sheet1").Range("G2:G10").Value
    .Offset(0, 5).Value = Sheets("Sheet1").Range("H2:H10").Value
End With
End Sub

Assumes you're running this with Sheet2 being the active sheet... can be altered if not.