Excel VBA - izvoz izbire filtrov v txt

(prvič delam z VBA, verjetno pa je rešitev trivialna...)
Želja je, da se v v List1 izberejo podatki po željenih filtrih in se potem "izbor" izvozi (shrani) npr. v txt datoteko.
Skripta je narejena tako, da se izbor prepiše v izvoz, potem pa se naredi txt datoteka (avtomatsko se prepisuje; brez vprašanja).

Deluje, samo za "določene" izbore dobim v txt datoteki po zadnji vrstici pravih podatkov lahko še nekaj vrstic ### (# = izbran tip separatorja).

Kako se znebiti teh dodatnih vrstic #?

Link s xls tabelo in skripto: https://drive.google.com/open?id=1EwDci...

Skripta:
Sub ExceltoTXT()
'spremenljivke nastavitev
Dim FileName, sLine, Deliminator As String
Dim LastCol, LastRow, FileNumber As Integer
'brisi izvoz na zacetku
Sheets("izvoz").Select
Cells.Select
Selection.ClearContents
'kopiraj dinamicno obmocje()
Worksheets("List1").Range("A1").CurrentRegion.Copy Worksheets("izvoz").Range("A1")
'Mesto Excel datoteke in ime izvozne datoteke
FileName = ThisWorkbook.Path & "\izvoz-txt.txt"
'Separator med polji
Deliminator = "#"
'dolocitev zadnje celice ???
LastCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
FileNumber = FreeFile
'izdelava oz prepisovanje obstojece tekstovne datoteke
Open FileName For Output As FileNumber
'branje podatkov s FOR zanko
For i = 1 To LastRow
For j = 1 To LastCol
'odstrani separator ce zapisuje zadnji stolpec
If j = LastCol Then
sLine = sLine & Cells(i, j).Value
Else
sLine = sLine & Cells(i, j).Value & Deliminator
End If
Next j
'zapisovanje podatkov v tekstovno datoteko
Print #FileNumber, sLine
sLine = ""
Next i
'zapiranje tekst datoteke
Close #FileNumber
'pojavno okno na zaslonu
MsgBox "Izvoz je narejen"
'preusmeritev v prvotni list
Range("F12").Select
Sheets("List1").Select
Range("D5").Select
End Sub

Pozdravljeni,
hvala. Deluje.

ps. glede kode mi ni čisto jasno zakaj, ampak
če imam npr. 5 stolpcev, potem moram dati v if stavek 4x # => vedno enega manj kot je število stolpec v tabeli!

Hvala za razlago - bo držalo in mi je jasno.

Se opravičjem za copy /paste takšne kode. Sem dal link s primerom kjer je vidna lepše kode.