開いているブックの1番目のシートからデータをコピー、開いているすべてのブックで繰り返す

Option Explicit
Sub IntegrateData()
    Dim wb As Variant
    '開いているブックの1番目のシートから、データをコピー
    '開いているすべてのブックで繰り返す
    For Each wb In Workbooks
    
        'この統合ブックは除く
        If wb.Name <> ThisWorkbook.Name Then
            'あるブックのシート1のセル範囲A2:F列の最終行をコピーし、
            'このブックのシート1のA列の最終行に貼り付ける
            wb.Sheets(1).Range("A2:F" & SmaxRow).Copy _
                ThisWorkbook.Sheets(1).Range("A" & DmaxRow + 1)
        End If
    Next wb
End Sub