Compilación de txt en una celda

Estoy tratando de compilar con un macro información de distintos txt que tengo en una carpeta en un excel. Actualmente estoy usando la fórmula que dejo a continuación, pero necesito modificarla para que los distintos txt vayan quedando de manera vertical en una única columna y por otro lado que todo el contenido del texto quede dentro de una única celda porque son canciones lo que debo compilar y en la separación de cada estrofa me cambia de celda. Gracias

mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
Range("a1:a" & Range("a65000").End(xlUp).Row).Copy
Workbooks(mio).Activate
Range("av2").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
Range("av1").End(xlToLeft).Offset(0, 1).value = otro
Workbooks(otro).Close False
archi = Dir()
Loop
ActiveSheet.Columns("a:a").EntireColumn.Delete
MsgBox "proceso terminado"
End Sub