Hello,

I have gotten the error "Subscript out of range" for the lines within the With statement in my code, but I can't seem to figure out what is missing/wrong.
The macro is supposed to get the data from multiple sheets in one workbook and paste it is a single sheet in another workbook.
If you can spot it please let me know.

Sub SummarySheetPasteTest()
Dim RunNo As String, strPath As String, SourceFile As String
Dim wsWafer As Worksheet, WaferLetter As String, increment As Integer

RunNo = Mid(ThisWorkbook.Name, 6, 6)
Name = ThisWorkbook.Name
increment = 0

For Each wsWafer In Sheets(Array("XRD-A", "XRD-B", "XRD-C", "XRD-D", "XRD-E", "XRD-F", "XRD-G", "XRD-H", "XRD-I", "XRD-J"))
    
        WaferLetter = Chr(65 + increment)
        WaferRow = 21 + increment
        strPath = "C:\X'Pert Data\Wafers\W" & RunNo & "\WaferXRDAnalysis" & RunNo
        SourceFile = strPath
        If SourceFile <> "" Then
            Do
                'On Error Resume Next
                With Workbooks.Open(Filename:=SourceFile)
                    .Sheets(WaferLetter & "-G").Range("R2").Copy Destination:=Workbooks("Name").Sheets("Summary").Range("X" & WaferRow)
                    .Sheets(WaferLetter & "-G").Range("R4").Copy Destination:=Workbooks("Name").Sheets("Summary").Range("AA" & WaferRow)
                    .Sheets(WaferLetter & "-N").Range("R2").Copy Destination:=Workbooks("Name").Sheets("Summary").Range("AF" & WaferRow)
                    .Sheets(WaferLetter & "-N").Range("R4").Copy Destination:=Workbooks("Name").Sheets("Summary").Range("AH" & WaferRow)
                End With
                SourceFile = "StopThisLoop"
            Loop While SourceFile <> "StopThisLoop"
        End If
        increment = increment + 1
        'MsgBox "WaferLetter is " & WaferLetter
    Next wsWafer
End Sub