brug af array med vba

Hej jeg har lavet en userform til at registrere forskellige ting, det har længe irriteret mig at det tager forlang til at hente og gemme når jeg har lavet ændringer, så derfor tænkte jeg at jeg skulle i gang med at bruge array, det virker også fint nok men og nu kommer det der driller mig de ændringer skulle gerne komme i den første tomme række der er i regnearket, men men det sker ikke data bliver lagt i den første række i arrayet, derefter skulle den gerne lukke den fil der er skrevet til.
så hvis der er nogen der kan hjælpe mig med dette ville jeg være meget tak nemmelig.
jeg har prøvet med denne:
  "  OpslagsDataHistorik = OpslagsDataHistorik.Row + 1"
men der melder den fejl.

Her er den kode jeg har lavet.
Private Sub btn_Bestil_Click()
   
    Dim I As Variant, fb As Boolean
Dim CF As String, Datafil As String, DataArk As String
On Error GoTo ErrorHandle
    Application.ScreenUpdating = False
    Me.ListB_søgResultat.Clear
    Me.ListB_søgResultat.ColumnHeads = True

       
       
    svar = MsgBox("Vil du udlevere", vbYesNo, "Udlevering")
        If svar = vbYes Then
        Sheets(DataArk).Select
        Call Udlever
        Else
       
        If IsEmpty(OpslagsDataHistorik) Then Call HentDataHistorik    ' hvis ikke indlæst, så gøres det igen
    For I = 1 To UBound(OpslagsDataHistorik)
       
     
'        OpslagsDataHistorik = OpslagsDataHistorik.Row + 1

 
    OpslagsDataHistorik(I, 1) = Me.lblDato.Caption
     
      OpslagsDataHistorik(I, 2) = Me.comb_Produkt.Value
     
      OpslagsDataHistorik(I, 3) = Me.combo_mærke.Value
     
      OpslagsDataHistorik(I, 4) = Me.txtModelSko.Value
     
      OpslagsDataHistorik(I, 5) = Me.TxtStørrelse.Value
     
      OpslagsDataHistorik(I, 6) = Me.txtAntal.Value
     
    OpslagsDataHistorik(I, 7) = Me.Label_Navn.Caption
   
      OpslagsDataHistorik(I, 8) = Me.Label_EfterNavn.Caption
   
      OpslagsDataHistorik(I, 9) = Me.LabelInitialer.Caption
   
      OpslagsDataHistorik(I, 10) = Me.Label_LønNr.Caption
     
      OpslagsDataHistorik(I, 11) = Me.combo_egenbetaling.Value
 
      OpslagsDataHistorik(I, 12) = Me.combo_Initialer.Value
      OpslagsDataHistorik(I, 13) = Me.cmbo_BetaltJaNej.Value  'Taster
      OpslagsDataHistorik(I, 14) = Me.cmbo_betaltLange.Value
      OpslagsDataHistorik(I, 15) = Me.Label_Skift.Caption
    OpslagsDataHistorik(I, 16) = Me.cmbGenbestilJa_Nej.Value
   
      OpslagsDataHistorik(I, 17) = Me.txtBKommenterer.Value
      OpslagsDataHistorik(I, 17) = Me.comb_UgeNr.Value
     
      rOpslag = OpslagsDataHistorik
     
      fb = True
            Exit For
     
    Next
        'Call OrdreHistorik
      End If
   
    'ActiveWorkbook.Close True
         
       
       
          Me.Txb_søgefeltEfterNavn = ""
          Me.Txb_søgefeltLønNr = ""
          Me.Txb_søgefeltNavn = ""
          Me.Txb_søgefeltSapId = ""
          Me.Labe_SapId.Caption = ""
          Me.Label_EfterNavn.Caption = ""
          Me.Label_LønNr.Caption = ""
          Me.Label_Navn.Caption = ""
          Me.Label_Skift.Caption = ""
          Me.comb_Produkt.Value = ""
          Me.combo_mærke.Value = ""
          Me.txtAntal.Value = ""
          Me.txtAntal.Value = ""
          Me.txtModelSko.Value = ""
          Me.combo_egenbetaling.Value = ""
          Me.cmbo_betaltLange.Value = ""
          Me.cmbo_betaltLange.Value = ""
          Me.cmbo_BetaltJaNej.Value = ""
          Me.txtModelSko.Visible = False
    Me.TxtStørrelse.Visible = False
    Me.txtAntal.Visible = False
    Me.combo_egenbetaling.Visible = False
    'Me.combo_egenbetaling.Value = "300"
    Me.cmbo_BetaltJaNej.Visible = False
    'Me.cmbo_BetaltJaNej.Value = "Nej"
    Me.cmbo_betaltLange.Visible = False
    'Me.cmbo_betaltLange.Value = "Nej"
    Me.txtVareNr.Visible = False
    Me.cmbGenbestilJa_Nej.Visible = False
    Me.btn_Bestil.Visible = False
    Me.cmbGenbestilJa_Nej.Value = ""
   
   
    Me.Txb_søgefelt.SetFocus
BeforeExit:
'Set R = Nothing
Application.ScreenUpdating = True
Exit Sub
ErrorHandle:
MsgBox Err.Description & " Procedure HentData"
'Sikrer at skærmopdatering slås til i tilfælde af fejl


Resume BeforeExit
       
   
End Sub