Bom dia @Mario Felicio
Segue o código da Macro:
Sub CopyPaste()
Dim ws As Worksheet
Dim qtde As Integer
Dim linFrom As Integer
Dim linTo As Integer
Dim colFrom As String
Dim colTo As String
'inicializando minhas variáveis
colFrom = "M"
colTo = "N"
linFrom = 1
linTo = 1
'Definindo qual a planilha
Set ws = Worksheets("Plan1")
'Identificando qual a última linha
qtde = ws.Cells(Rows.Count, colFrom).End(xlUp).Offset(1, 0).Row
'fazendo um loop até o meu último registro da coluna de Origem
While linFrom <= qtde
'verificando se a minha célula de origem possui valor
If ws.Cells(linFrom, colFrom) <> "" Then
'se houver valor, copio para a minha célula de destino
ws.Cells(linTo, colTo) = ws.Cells(linFrom, colFrom)
'passando para minha próxima linnha de destino
linTo = linTo + 1
End If
'passando para minha próxima linha de origem
linFrom = linFrom + 1
Wend
End Sub
Note que coloquei as colunas M e N em variáveis para facilitar caso você precise alterar as colunas de origem e destino.
Basta copiar o código acima, entrar no menu desenvolvedor / Visual Basic, colar esse código e salvar. Depois basta clicar em Macros e selecioná-la.
Lembrando que sua planilha terá que ser salva com suporte a Macros.
Espero ter ajudado!