ListBox mirror TextBox and Copy to Excel Table

[rorobear]

Hello Everyone,

I’m hoping someone can help me as I’m having a hard time figuring this out. What I’d like to do:
As I type a number in the textbox, I’d like the amount to appear alongside in the listbox .
When I click on the transfer button, I’d like the listbox values to populate my table on sheet 1. Below is the code, I’m also including the workbook for clarity. Thank you in advance.

Private Sub TransferData_Click()
    Dim i As Long
    Dim ws As Worksheet
    Dim nextAvailableRow As Long
    'check if listbox is empty
  If Listbox1.ListCount = 0 Then
        MsgBox "Nothing Has Been Added", vbInformation, "ListBox Empty"
        Exit Sub
    End If
    Set ws = Sheets("Sheet2")
    For i = 0 To Listbox1.ListCount - 1
        nextAvailableRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
        ws.Range("b" & nextAvailableRow) = Listbox1.Column(0, i)
        ws.Range("c" & nextAvailableRow) = Listbox1.Column(1, i)
        ws.Range("d" & nextAvailableRow) = Listbox1.Column(2, i)
    Next i
    Listbox1.Clear
End Sub
 
Private Sub UserForm_Activate()
For i = 1 To 5
    Me.Controls("Label" & i).Caption = Me.Controls("Label" & i).Name
Next i
End Sub
 
Sub getSum()
On Error Resume Next
For i = 1 To 5
    If Me.Controls("Textbox" & i) <> Empty Then
        cntr = cntr
    End If
  cVal = cVal + CDbl(Me.Controls("Textbox" & i))
Next i
 Me.TextBox11 = cVal + cntr
End Sub
 
Private Sub TextBox1_Change()
getSum
  Me.Listbox1.AddItem
  Me.Listbox1.List(pos, 0) = Me.TextBox1
End Sub

Private Sub TextBox2_Change()
getSum
  Me.Listbox1.AddItem
  Me.Listbox1.List(pos, 1) = Me.TextBox2
End Sub

Private Sub TextBox3_Change()
getSum
End Sub
 
Private Sub TextBox4_Change()
getSum
End Sub

Private Sub TextBox5_Change()
getSum
End Sub

Private Sub TextBox6_Change()
getSum
End Sub

Private Sub TextBox7_Change()
getSum
End Sub

Private Sub TextBox8_Change()
getSum
End Sub

Private Sub TextBox9_Change()
getSum
End Sub

Private Sub TextBox10_Change()
getSum
End Sub

[snb]

You don't need the listbox.
See the attachment

[rorobear]

yes, it works and thank you but that is not the objective i was going for. i need the table as it will later contain other info and i need it in sheet1, not sheet sheet2

[snb]

You have my permission to adapt the code.

And please do not contradict your own code:

ws = Sheets("Sheet2")