Mehrfachauswahl in Listbox

habe eine Frage:

Habe diesen Code aus der Recherche bekomme ihn aber nicht so passend für mich gestaltet.

Mehrfacheinträge aus einer Listbox (Userform) sollen gemäß ihrem Listenindex in einer Tabelle eingetragen werden und nicht wie in diesem Beispiel untereinander.

Beispiel 1.ListenEintrag = A1
4.ListenEintrag = A4...

Kann mir jemand das passend machen?

Private Sub cmdEintragen_Click()
Dim iRow As Integer, iCounter As Integer
For iRow = 0 To lstMonths.ListCount - 1
If lstMonths.Selected(iRow) Then
iCounter = iCounter + 1
Cells(iCounter, 1).Value = lstMonths.List(iRow)
End If
Next iRow
Unload Me
End Sub

Danke

Gruß
Felix