VBA - overfør månedens tal

Min problemstilling er lidt i stil med http://www.eksperten.dk/spm/719007.

Mappe1 er et rapporteringsark, hvor jeg ønsker at trække nogle tal fra Mappe2.

Det er tallene fra række 2 til 9 hver gang i begge ark, men kolonnen varierer efter hvilken måned det drejer sig om.
Månedsnummeret vælges i Mappe1 og er lagt i variablen "i".

Indtil videre er jeg nået frem til denne kode, men den virker ikke helt. Nogen som kan hjælpe?

Sub HentReal_fra_Mappe2()

Dim i, o, p As Integer
Dim arr(2 To 9, 1) As Variant

Application.ScreenUpdating = False

i = Worksheets("Ark1").Range("S22").Value + 1

On Error Resume Next
Workbooks("Mappe2.xls").Activate
If Err.Number <> 0 Then Workbooks.Open "C:\Mappe2.xls"

For o = 2 To 9
    arr(o, i) = Sheets("Ark2").Cells(o, i).Value
Next o
   
ActiveWorkbook.Close

Windows("Mappe1.xls").Activate

For p = 2 To 9
    Sheets("Ark1").Cells(p, i).Value = arr(p, i)
Next p

Application.ScreenUpdating = True

End Sub