Так нужно?
[vba]Код
Private Sub btnOK_Click()
Dim ws As Worksheet
Dim newRow As Long, i As Long, j As Long
Set ws = Worksheets("Лист2")
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
With lbDays
For i = 0 To lbDays.ListCount - 1
If .Selected(i) Then
For j = 1 To .ColumnCount
ws.Cells(newRow, j).Value = .List(i, j - 1)
Next j
newRow = newRow + 1
End If
Next i
End With
End Sub
[/vba]
Обратите внмимание, как Виктор в Вашей предыдущей теме нашел последнюю ячейку
End(...).Row правильнее, чем CountA - последняя строка ищется независимо от того, есть ли незаполненные ячейки в середине данных столбца А