In that example, you probably had row 0 selected.
to get the column, you use LastAddedRowIndex to get the row number of the last added row.
dim o as Integer
for o=ListBox1.Listcount downto 0
if ListBox1.selected(o) then
Listbox1.AddRowAt(o+1,"Test")
Me.CellTextAt(Me.LastAddedRowIndex, 1) = "Text for Column # 1" // column numbers are zero based
end if
next