Generar txt desde macro excel, leyendo una fila cada vez que se ejecuta.

Estoy intentando crear un pequeño macro para que me genere un .txt cada vez que lo ejecuto con la lectura de una sola fila por orden.

Me gustaría que me ayudara a completarlo, no se como seguir. Yo no tengo experiencia en esto y me pierdo.

Primera ejecución fila 1, segunda ejecución fila 2 ...

Es para sincronizar la programación de unos eventos.

Muchas Gracias de antemano.

Le facilito el código que hasta ahora tengo :

Dim i, j As Integer, texto As String
Sub ExportarTXT()
Dim ruta As String
ruta = "C:\Users\Patapalo\Desktop\pro.txt"
Open ruta For Output As #1
For i = 1 To 1
texto = Empty
For j = 1 To 3
texto = texto & Cells(i, j) & " | "
Next
Print #1, texto
Next
Close
End Sub

Y la tabla excell como ejemplo tengo esto :