vba - Excelファイルを開き、シート1のデータを現在のワークブックの「RRimport」シートに貼り付けるVBA

Question

わかりましたので、いくつかのシートを含む現在のワークブック (元のワークブック) があります。既存のワークブック (データ ワークブック) を開いて、「データ ワークブック」のシート 1 の内容をすべてコピーし、「元のワークブック」のシート「RRimport」にすべて貼り付けたいと考えています。このプロセスの最後に、「データ ワークブック」を閉じたいと思います。これまでのところ、次のコードがありますが、現在、元のワークブックのシート名「ARGimport」の直後に新しいシートが貼り付けられます。

Sub ImportData()

Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ActiveWorkbook

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

    For Each Sheet In wb2.Sheets
        If Sheet.Visible = True Then
            Sheet.Copy After:=wb1.Sheets("ARGimport")
        End If
    Next Sheet

End If

    wb2.Close

End Sub

rdhsの助けを借りて、これを理解することができました。以下の更新された作業コード：

Sub ImportData()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Sheet As Worksheet
Dim PasteStart As Range

Set wb1 = ActiveWorkbook
Set PasteStart = [RRimport!A1]

Sheets("RRimport").Select
    Cells.Select
    Selection.ClearContents

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

    For Each Sheet In wb2.Sheets
        With Sheet.UsedRange
            .Copy PasteStart
            Set PasteStart = PasteStart.Offset(.Rows.Count)
        End With
    Next Sheet

End If

    wb2.Close

End Sub