title: Dynamically add data into Rows and column using userform VBA
body: <p>I newbie in VBA-Excel.
  I have problem to how insert data as dynamic from userform into sheets or table, output what I want is when commandbutton in userform on click then value insert as dynamically based name of participant. here my code:</p>
  <pre><code>Private Sub CommandButton1_Click()
  Dim BarisSel As Long
  Sheets(&quot;db&quot;).Activate
  lRow = Application.WorksheetFunction.CountA(Range(&quot;A:A&quot;)) + 2
  
  Cells(lRow, 1) = cb_class.Text
  Cells(lRow, 2) = cb_room.Text
  Cells(lRow, 3) = tb_name.Text
  
  'insert caption for Training Filed and every Question
  Cells(lRow, 4) = trainingField.Caption
  Cells(lRow, 5) = Qustion_1.Caption
  Cells(lRow, 5) = Qustion_2.Caption
  Cells(lRow, 5) = Qustion_3.Caption
  Cells(lRow, 5) = Qustion_4.Caption
  
  'Answer Question number 1 using OptionButton
  If Jwb_1_A Then Cells(lRow, 6) = &quot;A&quot;
  If Jwb_1_B Then Cells(lRow, 6) = &quot;B&quot;
  If Jwb_1_C Then Cells(lRow, 6) = &quot;C&quot;
  'Remarks for Answer B or C using text box
  If Jwb_1_B.Value = True Then Cells(lRow, 7) = Tb_1_B.Text
  If Jwb_1_C.Value = True Then Cells(lRow, 7) = Tb_1_C.Text
  
  
  'Answer Question number 2 using OptionButton
  If Jwb_2_A Then Cells(lRow, 6) = &quot;A&quot;
  If Jwb_2_B Then Cells(lRow, 6) = &quot;B&quot;
  If Jwb_2_C Then Cells(lRow, 6) = &quot;C&quot;
  'Remarks for Answer B or C using text box
  If Jwb_2_B.Value = True Then Cells(lRow, 7) = Tb_2_B.Text
  If Jwb_2_C.Value = True Then Cells(lRow, 7) = Tb_2_C.Text
  
  
  'Answer Question number 3 using OptionButton
  If Jwb_3_A Then Cells(lRow, 6) = &quot;A&quot;
  If Jwb_3_B Then Cells(lRow, 6) = &quot;B&quot;
  If Jwb_3_C Then Cells(lRow, 6) = &quot;C&quot;
  'Remarks for Answer B or C using text box
  If Jwb_3_B.Value = True Then Cells(lRow, 7) = Tb_3_B.Text
  If Jwb_3_C.Value = True Then Cells(lRow, 7) = Tb_3_C.Text
  
  
  'Answer Question number 4 using OptionButton
  If Jwb_4_A Then Cells(lRow, 6) = &quot;A&quot;
  If Jwb_4_B Then Cells(lRow, 6) = &quot;B&quot;
  If Jwb_4_C Then Cells(lRow, 6) = &quot;C&quot;
  'Remarks for Answer B or C using text box
  If Jwb_4_B.Value = True Then Cells(lRow, 7) = Tb_4_B.Text
  If Jwb_4_C.Value = True Then Cells(lRow, 7) = Tb_4_C.Text
  
  ....
  ....
  ....
  ....
  ....
  
  'Until Question end
  End Sub
  </code></pre>
  <p>The output is not what i want, is just overwrite when i change next name participant. This is screenshot in excel for output what I want:</p>
  <h3>Output I would like:</h3>
  <p><img src="https://i.stack.imgur.com/UTThd.png" alt="Output what i want" /></p>