Sub WriteFile()
ThisFile = "C:\Results.txt"
On Error Resume Next
Kill (ThisFile)
On Error GoTo 0
Open ThisFile For Output As #1
FinalRow = Range("A65536").End(xlUp).Row
For j = 1 To FinalRow
Print #1, Cells(j, 1).Value
Next j
End Sub