Export sheet to txt deleting blank rows

hi CassioGodinho, option to delete empty rows basing on A column values, A1 - header:

Sub test()
With Range("a1:a2000")
    .AutoFilter 1, "="
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub