VBA runtime error 9 subscript out of range

Jeg modtager runtime error når jeg forsøger at indlæse mine vare, men den giver en vba runtime error 9 subscript out of range

Så hvis nogen kan hjælpe mig ville det være skønt.

Den fejler ved sidste linje, selvom der ikke har været ændret noget i fejlen, eller navne.


Sub LoadPriceRunnerFeed()
 
  Dim iRow          As Long
  Dim Fname        As Variant
  Dim Record        As String
  Dim P            As Variant
  Dim iCol, i, h, j As Integer
  Dim dsVarenumre() As String
  Dim dsRows        As Integer
  Dim articleWithoutZeros As String
  Dim priceRule    As Integer
  Dim ruleCalc      As Double
  Dim rulePercentage As Double
  Dim taxRate      As Double
 
  strFilePath = "K:\Public Temp Share\PriceRunner\Feeds\"
 
  Fname = strFilePath & NewestFile(strFilePath)
  If Fname = False Then Exit Sub
 
  Open Fname For Input As #1
  iRow = 1
  Line Input #1, Record

  Do Until EOF(1)
    P = Split(Record, vbTab)

    For iCol = 3 To 13
            If iCol = 3 Then Cells(iRow, iCol - 1) = P(iCol - 1)
            If iCol = 5 Or iCol = 6 Then Cells(iRow, iCol - 2) = P(iCol - 1)
            If iCol > 11 Then Cells(iRow, iCol - 7) = P(iCol - 1)
    Next iCol
   
    iRow = iRow + 1
    Line Input #1, Record
  Loop

  Close 1
 
'Indsæt "højre-funktion" for at kunne sortere på denne
    Worksheets("PriceRunner feed").Range("A1").FormulaR1C1 = "=RIGHT(RC[1],3)"
    Worksheets("PriceRunner feed").Range("A1").Select
    Selection.AutoFill Destination:=Worksheets("PriceRunner feed").Range("A1:A40000")
    Worksheets("PriceRunner feed").Range("A1").Select
   
'Sorter alt, der ikke er DS fra
    dsRows = WorksheetFunction.CountIf(Range("A:A"), "-EA")

    j = 0

    ReDim dsVarenumre(dsRows - 1, 17)