対象のシートが３行目からになった修正について

質問

対象のシートが３行目からになってしまったのですが、修正したいのですが、どこを修正したらよいかが分からず、困っています。お教え頂けませんか。よろしくお願いします。初心者で申し訳ありません。
Sub 統合()
Dim J As Long
Dim r As Long
Dim s As Long
Dim Sh As Worksheet
Dim MaxRow As Long
Dim MaxCol As Long
Dim MyArray As Variant
Dim JoinSh As Worksheet
Set JoinSh = Worksheets("統合") '統合シートを変数に格納
JoinSh.Cells.Delete 'すでに統合シートが存在する場合は一旦セルを削除
s = 1 '最大行を超えた場合次の統合シートを作成するための番号
For i = s + 1 To Worksheets.Count 'シートを統合シートの次～末尾までループ
With Worksheets(i) '各月シート
If J = 1 Then
r = 1 '最初だけ項目も取得
Else
r = 1 '最初以外は2行目から取得
End If
MaxRow = .Cells(Rows.Count, 10).End(xlUp).Row '9列目で最終行を取得
MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得
MyArray = Range(.Cells(r, 10), .Cells(MaxRow, MaxCol)) 'A1～データ末尾まで配列に格納
End With
With JoinSh '統合シート
MaxRow = .Cells(Rows.Count, 10).End(xlUp).Row '統合シートの9列目で最終行取得
If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理
s = s + 1 '統合シートの番号を加算
Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加
ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加
Set JoinSh = ActiveSheet '統合シートを変数に格納
MaxRow = JoinSh.Cells(Rows.Count, 10).End(xlUp).Row '統合シートの9列目で最終行取得
End If
If .Cells(1, 1) = "" Then
'最初だけ1行目から貼り付け
Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray
Else
'最初以外は最終行の次に貼り付け
Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray
End If
End With
Next i
End Sub

回答No.2

kkkkkm · ベストアンサー

No.1に追加です。

> If J = 1 Then
> r = 1 '最初だけ項目も取得
> Else
> r = 1 '最初以外は2行目から取得
> End If

Jはどこにも出てこないのでこのIf文はElseのr=1にしか対応していませんし、説明通りならElseはr=2だと思います。

お礼

できました。ヒントを頂きましてありがとうございました。灯台もと暗しです。しっかり見ているつもりがみていなかつたと悟りました。ありがとうございました。

回答No.1

kkkkkm

3行目というのがよく分かりませんが

> MyArray = Range(.Cells(r, 10), .Cells(MaxRow, MaxCol)) 'A1～データ末尾まで配列に格納

説明とコードが一致していません。
Ｊ列(10列目)のr行からデータ末尾までとなっています。

> MaxRow = .Cells(Rows.Count, 10).End(xlUp).Row '9列目で最終行を取得

10列目の最終行を取得しています。

お礼

できました。ヒントを頂きましてありがとうございました。灯台もと暗しです。しっかり見ているつもりがみていなかつたと悟りました。ありがとうございました。