title: How to get a listbox to return it's results inside a range into the next empty row. Each selection another cell
body: <p>I have a multiselect listbox and want to insert the selected items in a range from F to M into the last empty cells. I have already limited the possible selection to 8.</p>
  
  <p>I already tried following code:</p>
  
  <pre><code>Dim i As Integer
  With machwas.ListBox1
  For i = 0 To .ListCount - 1
  If .Selected(i) Then
  If Cells(last, 6).Value = "" Then
  ActiveSheet.Cells(last, 6).Value = .List(i)
  If Cells(last, 7).Value = "" Then
  ActiveSheet.Cells(last, 7).Value = .List(i)
  If Cells(last, 8).Value = "" Then
  ActiveSheet.Cells(last, 8).Value = .List(i)
  If Cells(last, 8).Value = "" Then
  ActiveSheet.Cells(last, 8).Value = .List(i)
  If Cells(last, 9).Value = "" Then
  ActiveSheet.Cells(last, 9).Value = .List(i)
  If Cells(last, 10).Value = "" Then
  ActiveSheet.Cells(last, 10).Value = .List(i)
  If Cells(last, 11).Value = "" Then
  ActiveSheet.Cells(last, 11).Value = .List(i)
  If Cells(last, 12).Value = "" Then
  ActiveSheet.Cells(last, 12).Value = .List(i)
  If Cells(last, 13).Value = "" Then
  ActiveSheet.Cells(last, 13).Value = .List(i)
  If Cells(last, 14).Value = "" Then
  ActiveSheet.Cells(last, 14).Value = .List(i)
  End If
  Else  
  End If
  Next i
  </code></pre>
  
  <p>But it shows me the first selection from the list in every last column.</p>