Subscript out of range

Hej alle,

Jeg har et problem i forbindelse med et lille Excel (Office 2010) VBA stykke kode. Jeg før en "Run time error 9; Subscript out of range" fejl i linjen med "Range("AB" & j, "AI" & j).Copy Workbooks("I:\2care4 ApS\Kalkulationer\Produktforespørgsler\nyeForespørgsler.xlsm").Sheets(i).Range("A" & fundne)".

Jeg har prøvet en række forskellige løsninger så som at aktivere nyeProdukter før jeg paster, diverse variationer over adressen, men fejlen er konstant den samme. Navnet og adressen er korrekt, det er copy/paste.

Sub hentForespørgsler()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim lastRow As Integer
Dim denneSti As String
Dim sourceFil As String
Dim targetFil As String
Dim fundne As Integer

denneSti = "I:\2care4 ApS\Kalkulationer\Produktforespørgsler\"
sourceFil = denneSti & "Produktforespørgsler vs2.xlsx"
targetFil = denneSti & "nyeForespørgsler.xlsm"


'        lastRow = sourceFil.Cells.Find("*", searchorder:=xlByRows, _
            LookIn:=xlValues, searchdirection:=xlPrevious).Row
        For i = 1 To 22
            fundne = 2
            For j = 2 To 1000
                If Cells(j, i + 5) = "x" Then
                    Range("AB" & j, "AI" & j).Copy Workbooks("I:\2care4 ApS\Kalkulationer\Produktforespørgsler\nyeForespørgsler.xlsm").Sheets(i).Range("A" & fundne)
                    fundne = fundne + 1
                End If
           
            Next j
        Next i

'sourceFil.Close False
End Sub

Jeg håber spørgsmålet er præcist nok, men ellers må i endeligt spørge.