Pessoal, bom dia.
Encontrei esta função abaixo muito interessante para concatenar células:

'Função que concatena dados de um range
'lRange = Intervalo de dados a concatenar
'lSeparador = String de separador definido pelo usuário
Public Function gfConcatenar(ByVal lRange As Range, Optional ByVal lSeparador As String) As String
    Application.Volatile

    Dim lCel As Range

    If lRange Is Nothing Then
        gfConcatenar = ""
    Else
        For Each lCel In lRange
            If lCel.Value  "" Then
                If gfConcatenar = "" Then
                    gfConcatenar = CStr(lCel.Value)
                Else
                    gfConcatenar = gfConcatenar + lSeparador + CStr(lCel.Value)
                End If
            End If
        Next lCel
    End If
End Function

Testei e funcionou muito bem porém queria fazer o resultado de forma diferente. Colocar um botão na Plan1 e ao clicar no botão fosse gerado o arquivo concatenado na Plan2. Isso é possível? Da para gerar direto no Bloco de Notas?
Obrigado.