Dynamically creation of text boxes through a buttonClick

Hello,
I am working on form for CV automation. I stuck with work experience.
Workflow is the next: Some candidate may have no WE (work experience) and the others may have different "amount" of WE.
So I need to have dynamic button, which will create another set of fields (4 fields) for another WE, and to drag button below new WE textboxes.

Please find the attachment below. On user form I ve manually added another WE2 set of fields. Just to explain you better.

Thanks in advance!

You could do it like that, but I think it would get unwieldy - I'd use a listbox with add and update buttons

Option Explicit

Dim EditingIndex As Long

Private Sub Add_Click()

    Dim data
        
    Me.ListBox1.AddItem
    MsgBox Me.ListBox1.ListCount
    
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = we1.Value
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = we2.Value
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = we3.Value
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = we4.Value
    
    
    'if first group (work experience 1) of textboxes are blank then
    'Do Nothing else
    ' import below first group second group (work experience 2)...


End Sub


Private Sub Edit_Click()

    EditingIndex = Me.ListBox1.ListIndex
    MsgBox EditingIndex
    Me.ListBox1.List(EditingIndex, 0) = Me.we1.Value
    Me.ListBox1.List(EditingIndex, 1) = Me.we2.Value
    Me.ListBox1.List(EditingIndex, 2) = Me.we3.Value
    Me.ListBox1.List(EditingIndex, 3) = Me.we4.Value
    
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    EditingIndex = Me.ListBox1.ListIndex
    Me.we1.Value = Me.ListBox1.List(EditingIndex, 0)
    Me.we2.Value = Me.ListBox1.List(EditingIndex, 1)
    Me.we3.Value = Me.ListBox1.List(EditingIndex, 2)
    Me.we4.Value = Me.ListBox1.List(EditingIndex, 3)
    
End Sub

Thanks Kyle,
But I quite do not understand your code.
Why did you add on top text box which on click erases all fields?
On add more experince I need to create 4 more text boxes in same order, just below the first set of text boxes..

Thanks!!

Sorry, I've no idea what you are talking about? Nothing erases all fields.

What don't you understand?

Thanks you for your patience.

Firstly, on click Add More Experience form do nothing.

Private Sub CommandButton1_Click()

End Sub

It should be on click create 4 text boxes below the first set.

Maybe we didnt understand each other what my problem is?

Thanks again! Any help is a help for me

I understand your problem, but please re-read my post. Just change the button names to Add and Edit respectively

Oh, Now I feel uncomfortable..I am newbie but this mistake that I've made..
Ok, your logic is even better than mine. I ' ve edited name of the buttons, but still I cannot figure it out what does Add more experience? In this logic I need only Update. Am I wrong? And now, from array, I will read values and insert it in cells where I need them.

Later today, I will pack everything and upload a file, just for you to see what I want..a bigger picture

Thanks again!

Well add adds a row to the listbox, edit updates an existing option once its been double clicked

Kyle,

OK, now I got it!

Please look, I ve uploaded my "master file", under tab Work experience.

The idea is, to populate grey area, if there more then one work expierence this range should be duplicated and formated like this one. I assume that would be no problem with inserting from multi line txtDescription box?

Please, could you tell me ho to write Delete button for the list?

Thank you very much!

P.S. I alternated the name of text boxes we1 = txtPeriod; we2 = txtCompany; we3 = txtPosition ; we4 = txtDescription.

Edit> The latest version

Please, refer to this post

HTML Code: 

Thanks!