Можете помочь с формой ввода ListBox для ввода множественных значений списка через запятую в каждую последующую ячейку строки.
Привожу пример ввода (1 вариант не работает, 2 вариант работает, если заполнить А2 ячейку таблицы.
Если заполнить А2 ячейку умной таблицы tbl, то форма прекрасно работает, если её оставить пустой, то выходит ошибка.
Код
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim mdk1 As String
With ListBox1
For iRow = 0 To .ListCount - 1
If .Selected(iRow) = True Then mdk1 = mdk1 & .List(iRow) & ", "
Next iRow
End With
With List1
iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
.Cells(iRow, "A").Value = mdk1
End With
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim mdk1 As String
With ListBox1
For iRow = 0 To .ListCount - 1
If .Selected(iRow) = True Then mdk1 = mdk1 & .List(iRow) & ", "
Next iRow
End With
With List1
On Error Resume Next
iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
If Err.Number <> 0 Then
Err.Clear
iRow = 2
Else
On Error GoTo 0
End If
.Cells(iRow, "A").Value = mdk1
End With
End Sub