在表格的特定列上添加多个数据

Question

我正在尝试创建一个表，该表可以存储“培训信息”数据。下面的代码可以正常工作（请参见下面的示例结果），但是一次只能添加一个数据。

我想做的是只能在“与会者”列上添加几个数据，而其他列将包含相同的数据，因为它是经过相同的训练。

有什么想法吗？

Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)