Fejl en som kan se hvorfor

Sub Opslag3()
Dim arr(21, 1)
Dim arr2(9)
Dim i, o, p As Integer
Dim rng As Range
Dim FindDato As String

'------------------------------------
Workbooks("1.xls").Activate
Sheets("Ark1").Activate

FindDato = Cells(1, 4).Text

'------------------------------------
'find rækknr for dato
Workbooks("2.xls").Activate
Sheets("Ark1").Select

Set rng = Range("A:A")

For Each d1 In rng
    If d1.Text = FindDato Then
        p = d1.Row
        Exit For
    End If
Next d1

'------------------------------------
'indlæs værdier fra 2.xls for dato (p)
For i = 1 To 21
    arr(i - 1, 0) = Cells(p, i).Value
    arr(i - 1, 1) = Cells(1, i).Value
Next i

'------------------------------------

'indlæs opslagsværdier
Workbooks("1.xls").Activate
Sheets("Ark1").Activate
For i = 0 To 9
Cells(i + 4, 1).Select
    arr2(i) = Cells(i + 4, 1).Value
Next i

'------------------------------------

'søg i arr efter arr2-værdier
'når der kommer et hit, skriv værdien fra næste kolonne [= arr(o+1,0)]
'samt kolonnenavnet fra række 1 [arr(o,1)]

Sheets("Sheet1").Activate

For i = 0 To 9
p = i + 14 ' hvor skal der skrives på ark
    For o = 1 To 21
        If arr(o, 0) = arr2(i) Then
            Cells(p, 5).Value = arr(o + 1, 0)
            Cells(p, 4).Value = arr(o, 1)
            Exit For
      End If
    Next o
Next i

End Sub