Makroji v excelu

Upam da mi bo kdo lahko pomagal...
Posnel sem makro, ki mi iz notepada uvozi podatke in razvrsti. Vse lepo in prav. Toda ko pa hocem ponovno uvozit podatke(vsak dan bodo novi podatki), pa mi jih napise v isto vrstic,tam kjer sem ze imel podatke. Moral bi nekako spremeniti kodo da bi mi vnašalo podatke spodaj,za starimi podatki.
Recimo da mi v polje A1 do A100 vnese prve podatke. Ko bi zagnal drugic makro bi mi moral vnest podatke v polje od A101 do A200.
Zal se ne razumem toliko v kodo da bi znal to popravit. Help!

Se Koda:
Sub Vnos()

With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\Data.txt", Destination _
:=Range("A2"))
.Name = "Data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 852
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=72
Range("A107").Select
End Sub

Hvala ti. Bom probal ce bo slo

Da javi napako je lahko sledeči razlog:
Celica, katero uporabimo za shranjevanje lokacije (v našem primeru A1 na listu "List3" mora vsebovati neko začetno vrednost, to je vrstica v kateri začne pisati). za tačetek v to celico vpiši 2.

posredujem ti še celotno kodo:
Da ta koda deluje brez napak moraš v celico A1 na trenutnem listu vnesi vrednost na primer 2(obvezno celo pozitivno štrvilo manjše od 65000).
Na disku mora biti datoteka D:\Data.txt.

koda:

Sub Vnos()
Zac_vrstica = Cells(1, "A").Value
Cells(Zac_vrstica, "A").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\Data.txt", Destination _
:=Cells(Zac_vrstica, "A"))
.Name = "Data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 852
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Cells(1, "A").Value = Zac_vrstica + 100
Selection.End(xlDown).Select
End Sub