The macro does not define the last row in column A

[ttt480]

Hello.
Help me solve the problem.

The macro does not define the last row in column A.
Text from a file 1.txt is inserted only once.

How to add text from the last line each time the macro is enabled?

[YasserKhalil]

Change the last line in your code to

Please Login or Register  to view this content.

[protonLeah]

Using GOTO to exit out of a loop is a NO-NO
Using GOTO to jump into a loop is a NO-NO

Please Login or Register  to view this content.

edit:
you have a line at the top of the code:
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
that initializes the "Lastrow" variable; however, note that the line:
ActiveSheet.Range(Cells(LastRow + 1, 1), Cells(UBound(meData), 1)) = Application.Transpose(meData)
will never change the value of LastRow. That's why I moved the line inside the first DO loop so that it recalculates with each loop iteration.

[ttt480]

Thank you all for the answers.