Concatenar con macros varias columnas

Si alguien me pudiera ayudar con una macro que concatene varias columnas desde A6 hasta P6

Hacia abajo y que este separado por " | " y que genere un "txt"

Con el nombre del contenido en la celda F2.