Veja se é isto, faça os ajustes conforme s dados em sua planilha :

Private Sub CommandButton1_Click()
    Dim linha As Long
    Dim sCol As Long
    Dim i As Integer

    linha = 2
    
    sCol = Cells(linha, Columns.Count).End(xlToLeft).Column + 1

    
    For i = 0 To ListBox1.ListCount - 1
        
        Cells(linha, sCol).Value = ListBox1.List(i)
        
        sCol = sCol + 1
        
    Next i

End Sub

[]s

Na mosca Mauro !!

Era isso mesmo, fiz uma pequena adaptação na linha para que ela também acompanhe o Loop.

Mais uma vez obrigado pela força