Array af indhold fra celler til en Userform

Hej

Hvordan får jeg indholdet fra en række i et regneark i et array så jeg derfra kan få indholdet i en UserForm?

Jeg har so far dette. men prøver jeg med anARRARY(1) til .G1 får jeg Run-time error '9' Subscript out of range

Public Sub ARRAYER()

   
    Dim anARRAY() As Variant
    Dim Row As Integer
   
    Row = ActiveCell.Row

    If Row > 3 Then

            anARRAY = Range(Cells(Row, 1), Cells(Row, 37)).value
           
            Popup anARRAY
            'Range(Cells(Row, 1), Cells(Row, 37)).value = anARRAY
           
            Rows(Row).Select
            Selection.Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove


       
    End If
End Sub

Sub Popup(anARRAY As Variant)
   
   
    Dim udtKomponentPop As KomponentPop
    With udtKomponentPop
        .G1 = ""
        .G21 = ""
        .G22 = ""
        .F1 = ""
        .F2 = ""
        .F3 = ""
        .Fn1 = ""
        .Fn2 = ""
        .A1 = ""
        .A2 = ""
        .An1 = ""
        .An2 = ""
        .A3 = ""
        .K1 = ""
        .K2 = ""
        .Kn1 = ""
        .Kn2 = ""
    End With
    ufmKomponentPop.SetValues udtKomponentPop
    ufmKomponentPop.Show
    If Not ufmKomponentPop.IsCancelled Then
        ufmKomponentPop.GetValues udtKomponentPop
        'continue process after OK here
        With udtKomponentPop
           
        End With
    End If
    Unload ufmKomponentPop
   
   
   
End Sub

Er jeg helt på herrens mark?