Offsetプロパティは指定範囲を移動させる

Sub offsetテスト1()

　ActiveCell.Offset(3, 0).Select

End Sub

Sub offsetテスト2()

　ActiveCell.Offset(-3, 0).Select

End Sub

Sub offsetテスト3()

　ActiveCell.Offset(0, 3).Select

End Sub

Sub offsetテスト4()

　ActiveCell.Offset(0, -3).Select

End Sub

Sub offsetテスト5()

　ActiveCell.Offset(3, 3).Select

End Sub

Sub offsetテスト6()

　ActiveCell.Offset(-3, -3).Select

End Sub

Sub offsetテスト7()

　Range("F8:H10").Select
　Selection.Offset(5, 0).Select

End Sub

Sub offsetテスト8()

　Range("F8:H10").Select
　Selection.Offset(-5, 0).Select

End Sub

Sub offsetテスト9()

　Range("F8:H10").Select
　Selection.Offset(0, 5).Select

End Sub

Sub offsetテスト10()

　Range("F8:H10").Select
　Selection.Offset(0, -5).Select

End Sub

Sub offsetテスト11()

　Range("F8:H10").Select
　Selection.Offset(5, 5).Select

End Sub

Sub offsetテスト12()

　Range("F8:H10").Select
　Selection.Offset(-5, -5).Select

End Sub

Sub offsetテスト14()

Dim C As Range
Dim ERow As Long, ARow As Long
'A列とE列の行数を調べます
    ARow = Cells(Rows.Count, 1).End(xlUp).Row
    ERow = Cells(Rows.Count, 5).End(xlUp).Row

'セルA1とセルE1の条件設定    
    If Range("A1") = "" Then ARow = 0
    If Range("E1") = "" Then Exit Sub

'アクティブセルを選択します
    Range("A" & ARow + 1).Select

'OffsetでA列の行を1段づつ下げる
    For Each C In Range("E1:E" & ERow)
        ActiveCell.Value = C.Value
        ActiveCell.Offset(1).Select
    Next C

End Sub