Exportar datos de excel a TXT en la primera fila vacía plano TXT

Junto con saludar, les comento que he buscado en muchas partes y necesito ayuda con esto por favor.

Lo que tengo actualmente son 2 macros:

1) Una que graba información de excel a TXT

2) Otra macro que lee cada línea del archivo TXT y extraigo información según algunos filtros que incorporo.

El PROBLEMA, es que necesito seguir alimentando este archivo TXT con nuevos datos y la verdad desconozco algún comando o sintaxis que me pueda ayudar para encontrar la última línea con datos y luego escribir estos nuevos datos en la fila siguiente.

Actualmente con esta macro obtengo la última fila con datos del archivo TXT:

archivo_txt = ThisWorkbook.Path & "\" & "Consolidado_rezagos.txt"

Open archivo_txt For Input As #1

Do While Not EOF(1)
Line Input #1, texto_wtf
uf_txt = uf_txt + 1
Loop

Close #1

Sin embargo me falta el siguiente paso que es volver a abrir este archivo para OUTPUT y agregar datos en la primera fila vacía que se obtenga.

¿Alguna ayuda con esto por favor? Imagino que me falta alguna sintaxis o comando que no conozco y no he encontrado.