VBA Offsetで選択セルを移動させる

質問

よろしくお願いします。

H8から一行づつ下げてH10まで来たらH15まで飛ばして
また一行づつ下げていく。
Ｈ20まで来たらＨ27まで飛ばしてまた一行づつ下げていく。
このようにしたいのですが、構文が解りません。

Private Sub CommandButton1_Click()
If ActiveSheet.Range("H8").Activate Then
ActiveCell.offset(1, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
If ActiveSheet.Range("H10").Activate Then
ActiveCell.offset(5, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
If ActiveSheet.Range("H20").Activate Then
ActiveCell.offset(7, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
End Sub

回答No.1

noname#252332 · ベストアンサー

if文のActiveSheet.Range("H20").Activateで常にH20に飛んでしまうでしょう、
10なら4下げ、20なら6下げ、さらに常に1下げ、でどうですか。

If ActiveCell.Row = 10 Then
　　 ActiveCell.Offset(4, 0).Activate
End If

If ActiveCell.Row = 20 Then
　　 ActiveCell.Offset(6, 0).Activate
End If

ActiveCell.Offset(1, 0).Activate

お礼

xitian 様
早速の回答ありがとうございます。
すべて解決しました。