Complete regel verplaatsen naar ander document

Sub inlezen()
    Dim stPath As String
    Dim stFile As String
    Dim c01 As String
    Dim stFilename As Variant
    Dim stFullname As Object
    Dim stControle As String
    Dim Bopen As Boolean
    Dim irow As Integer
    Dim stBron As String
    Dim stDoel As String
    Dim i As Long
    
    Application.DisplayAlerts = False
    stPath = ThisWorkbook.Path & "\nog te verwerken\"
    stFile = Dir(stPath & "*.xl*")
    If stFile = "" Then MsgBox ("Geen bestanden gevonden in map " & stPath): Exit Sub
    Do While stFile <> ""
        If stFile <> ThisWorkbook.Name Then
            c01 = c01 & stFile & "|" 'opsomming van alle zulke bestanden met | als separator
            stFile = Dir()
        Else
            MsgBox "het bestand in de map " & stPath & " mag niet dezelfde naam dragen als het masterbestand" & vbLf & "Dit masterbestand mag maw. niet in de deirectory van de deelnemers staan" & vbLf & "dit bestand zal niet worden ingelezen"
        End If
    Loop
    stFilename = Split(c01, "|")
    For i = 0 To UBound(stFilename) - 1                      '1 voor 1 al die files inlezen
        Application.ScreenUpdating = False
        On Error Resume Next
        Set stFullname = Nothing
        Set stFullname = stPath & Workbooks(stFilename(i)) 'hiermee test je eerst of dat werkblad misschien al open was
        With CreateObject("Scripting.FileSystemObject")
            stControle = ThisWorkbook.Path & "\verwerkt\" & stFilename(i)
            If .FileExists(stControle) Then
                MsgBox "bestand " & stFilename(i) & " wordt niet verwerkt, deze bestaat al."
                GoTo volgende
            End If
        End With
        Bopen = (Not stFullname Is Nothing)
        If Not Bopen Then Set stFullname = Workbooks.Open(stPath & stFilename(i))
        If stFullname Is Nothing Then
            MsgBox "kan het bestand " & stPath & stFilename(i) & " niet vinden"
        Else
            On Error GoTo 0
'===========================gegevens die uit het bestand gehaald moeten worden=========================================
            With ThisWorkbook.Sheets("deelnemers")
                irow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
                stFullname.Sheets("kopieblad").Rows("11:15").Copy
                .Rows(irow).Insert shift:=xlDown
                .Rows(irow + 2).Hidden = True
                .Rows(irow + 3).Hidden = True
            End With
 '=================================================================================================================
            Application.CutCopyMode = False
            If Not stFullname Is Nothing Then
                If Not Bopen Then stFullname.Close Savechanges:=False
            End If
            stBron = ThisWorkbook.Path & "\nog te verwerken\" & stFilename(i)
            stDoel = ThisWorkbook.Path & "\verwerkt\" & stFilename(i)
            Name stBron As stDoel
        End If
        Application.ScreenUpdating = True
volgende:
    Next
End Sub