VBA 複数行の時だけオートフィル

VBA初心者です。

顧客の注文データを管理する表を作っています。

可変するHの最終行まで可変するB〜Gをコピーするコードをオートフィルを使って下記の通り入力してみたのですが、Hの最終行とB〜Gの最終行が同じ行(オートフィルの必要がない)場合にエラーが出てしまいます。

Dim row1 As Integer
Dim row2 As Integer
row1 = Cells(Rows.Count, "B").End(xlUp).Row
row2 = Cells(Rows.Count, "H").End(xlUp).Row
Range("B" & row1 & ":G" & row1).Select
Selection.AutoFill Destination:=Range("B" & row1 & ":G" & row2), Type:=xlFillCopy

B〜Gに顧客データ、Hに注文内容が入っていて、注文件数がそれぞれ違うのです。
ちなみにデータは顧客ごとに1行空間を空けています。

↓こんな感じに入力していくのが理想です。
B|C|D〜G|H

1|1|1〜1|1
1|1|1〜1|1

2|2|2〜2|2
2|2|2〜2|2
2|2|2〜2|2

3|3|3〜3|3

4|4|4〜4|4
4|4|4〜4|4
（1顧客ごとに入力していくマクロです。）

オートフィルを使わずコピペでも大丈夫です。

素人質問で申し訳ないのですがご教授お願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

取り敢えず一番シンプルに、エラーが起きる条件のときは処理しないようにする修正例です。

VBA
1Dim row1 As Integer
2Dim row2 As Integer
3row1 = Cells(Rows.Count, "B").End(xlUp).Row
4row2 = Cells(Rows.Count, "H").End(xlUp).Row
5
6If row1 = row2 Then Exit Sub 'row1 = row2 のとき、この後の処理をしないで終了する
7
8Range("B" & row1 & ":G" & row1).Select
9Selection.AutoFill Destination:=Range("B" & row1 & ":G" & row2), Type:=xlFillCopy

追記
row1 = row2 のとき、違う処理を実行する場合

VBA
1Dim row1 As Integer
2Dim row2 As Integer
3row1 = Cells(Rows.Count, "B").End(xlUp).Row
4row2 = Cells(Rows.Count, "H").End(xlUp).Row
5
6If row1 = row2 Then
7
8    任意の処理
9    もしくは Call 任意のプロシージャ
10
11Else
12
13    Range("B" & row1 & ":G" & row1).Select
14    Selection.AutoFill Destination:=Range("B" & row1 & ":G" & row2), Type:=xlFillCopy
15
16End If