title: Fill data from userform to next row
body: <p>I have made a userform, but I can't manage to fill the data from it to the next row every time, it always fills the same row.</p>
  
  <p>Here is my current code:</p>
  
  <pre><code>Private Sub btnivesti_Click()
      Dim ssheet As Worksheet
  
      Set ssheet = ThisWorkbook.Sheets("Lapas1")
  
      ssheet.Cells(3) = CDate(Me.tddate)
      ssheet.Cells(1) = Me.cmblistitem
      ssheet.Cells(4) = Me.tbpo
      ssheet.Cells(6) = Me.tbkodas
      ssheet.Cells(8) = Me.tbkiekis
  
  End Sub
  
  Private Sub UserForm_Initialize()
      Me.tddate = Date
  
      'fill drop box
  
      For Each cell In [listas1]
          Me.cmblistitem.AddItem cell
      Next cell
  
  End Sub
  </code></pre>