macro probleem, fout 9 tijdens uitvoering - het subscript valt buiten bereik

Sub kopie_naar_LevExcel_WINTER_2018()
'==============================================================================
' Kopieer gegevens van aantallenblad Excel naar leveranciers Excel
'==============================================================================
'!OPGEPAST! Je dient telkens naam van bronbestand en doelbestand in te vullen
'           Let ook zeker op de bestandsextensie (.xls of .xlsx)

    'bepaal het bronbestand en doelbestand met behulp van invoervensters + eerste en laatste rij in aantallenblad
    Dim Bronbestand1 As String
    Dim Doelbestand1 As String
    Dim Rij_Eerst As Integer
    Dim Rij_Laatst As Integer
    Dim Rij_Verschil As Integer
    
    Bronbestand1 = InputBox("Wat is volledige naam van AANTALLENBLAD bestand? (incl. extensie) Dit bestand moet geopend zijn!")
    Rij_Eerst = InputBox("Wat is het rijnummer van eerste rij die u wil kopiëren?")
    Rij_Laatst = InputBox("Wat is het rijnummer van laatste rij die u wil kopiëren?")
    Doelbestand1 = InputBox("Wat is volledige naam van LEVERANCIER bestand? (incl. extensie) Dit bestand moet geopend zijn!")
     
    Rij_Verschil = (Rij_Laatst - Rij_Eerst) + 10
    
    Application.ScreenUpdating = False
     
    'selecteer en kopieer artikelnummers
    Windows(Bronbestand1).Activate
    Range("A" & Rij_Eerst, "AR" & Rij_Laatst).MergeCells = False
    Range("A" & Rij_Eerst, "A" & Rij_Laatst).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer omschrijving
    Windows(Bronbestand1).Activate
    Selection.Offset(, 2).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer leveranciersreferentie
    Windows(Bronbestand1).Activate
    Selection.Offset(, 2).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("I10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer artikelprijs
    Windows(Bronbestand1).Activate
    Selection.Offset(, 1).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("J10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer gewicht
    Windows(Bronbestand1).Activate
    Selection.Offset(, 5).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("Y10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer intrastat
    Windows(Bronbestand1).Activate
    Selection.Offset(, 1).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("Z10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
   
    'selecteer en kopieer masterdoos gegevens
    Windows(Bronbestand1).Activate
    Selection.Offset(, 18).Resize(, 6).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("AB10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.HorizontalAlignment = xlCenter
    Selection.VerticalAlignment = xlCenter
          
    'selecteer en kopieer innerdoos gegevens
    Windows(Bronbestand1).Activate
    Selection.Offset(, 7).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("AI10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.HorizontalAlignment = xlCenter
    Selection.VerticalAlignment = xlCenter
    
    'selecteer en kopieer materiaal
    Windows(Bronbestand1).Activate
    Selection.Offset(, 7).Resize(, 10).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("AV10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
            
    'selecteer en kopieer minimum
    Windows(Bronbestand1).Activate
    Range("BB" & Rij_Eerst, "BB" & Rij_Laatst).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("AO10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer bestelling
    Windows(Bronbestand1).Activate
    Selection.Offset(, 1).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("X10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    'selecteer en kopieer artikel afmetingen
    Windows(Bronbestand1).Activate
    Range("H" & Rij_Eerst, "H" & Rij_Laatst).Resize(, 3).Select
    Selection.Copy
    Windows(Doelbestand1).Activate
    Range("BJ10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
         
    'Voeg master CBM toe
    Range("AA10").FormulaR1C1 = "=(RC[1]*RC[2]*RC[3])/1000000"
    Set SourceRange = Range("AA10")
    Set fillRange = Range("AA10", "AA" & Rij_Verschil)
    SourceRange.AutoFill Destination:=fillRange
    
    'Voeg inner CBM toe
    Range("AH10").FormulaR1C1 = "=(RC[1]*RC[2]*RC[3])/1000000"
    Set SourceRange = Range("AH10")
    Set fillRange = Range("AH10", "AH" & Rij_Verschil)
    SourceRange.AutoFill Destination:=fillRange
         
    Application.ScreenUpdating = True
    [A10].Select
          
End Sub

Workbooks(Bronbestand1).Activate