Miguel 70,

Boa Tarde!

Altere para esse código:

Private Sub ListBox1_Click()
    Dim LinhaAtual As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    
    LinhaAtual = ActiveCell.Row
    
    ActiveCell = ListBox1
   
    If Columns("M:M").Activate = True Then
        Range("A" & UltimaLinha).Select
    End
    End If
    End
End Sub

Não deu certo.
Somente quando inserir na coluna M:M então seleciona a ultima linha vazia da coluna A

Cara não sei se é isso que você precisa mais o que eu consegui captar foi isso....

Se tiver uma hora de folga aí entre e meu blog:

programacaopassoapasso.wordpress.com

Ótimo isso mesmo que queria, obrigado EDIVAN.