VBA-UserForm

Hej

Jeg er ny til VBA, men jeg fået lavet mig en UserForm, hvor den nu læsser data ind i Excel arket, problemet er at min programmering ikke flytter data. Når jeg har udfyldt min Form så skal den automatisk læsse data af i række 3 og næste Form i række 4 osv.
Håber du kan hjælpe:

rivate Sub OK_knap_Click()

Dim emptyRow As Long



'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 2

'Transfer information
Cells(emptyRow, 1).Value = Dato_for_hændelse_Combo.Value
Cells(emptyRow, 2).Value = Oprindels_combobox.Value
Cells(emptyRow, 3).Value = Problembeskrivelse_textbox.Value
Cells(emptyRow, 4).Value = Område_combobox.Value
Cells(emptyRow, 5).Value = Emne_combobox.Value
Cells(emptyRow, 6).Value = Risikovurdering_combobox.Value
Cells(emptyRow, 7).Value = Prioritering_combobox.Value
Cells(emptyRow, 8).Value = Deadline_combobox.Value
Cells(emptyRow, 9).Value = Ansvarlig_combobox.Value


End Sub