Hej hej

Jag utgår ifrån att du har en äkta tabell i din bild. I så fall kan du använda denna kod. Koden klistrar alltid in din rad med data under din tabell. Då tabellen alltid utökar sig själv komemr detta fungera så länge som det är ok att klistra in din data på sista raden.

Sub dub()

    'Byt ut tbltest mot namnet på din tabell som du kan se om du markerar din tabell och öppnar menyfliken tabelldesign.

   'Koden kräver också att du befinner dig på bladet där du har din tabell, annars får du ändra i koden så att den pekar ut det bladet

    Dim tbl As ListObject: Set tbl = ActiveSheet.ListObjects("tbltest")

    Dim arr As Variant

    ReDim arr(1 To 1, 1 To tbl.ListColumns.Count)

    Dim cb As ComboBox, i As Long: i = 1

    'Userform1 behöver du möjligtvis byta ut mot namnet på din userform

    For Each cb In UserForm1.Controls

        arr(1, i) = cb.Text

        i = i + 1

    Next cb    

    tbl.Range.Rows(tbl.Range.Rows.Count).Offset(1, 0) = arr

End Sub