macro programing

I would like to get in contact with a VBA expert. I have a monster page of excel and would like to automate it, I recorded a macro which works OK, with limitations - it would be easy for somebody with a better knowledge than mine - to make it fly....

Here is the Macro.....

Application.Run "try_417.xlsm!Macro2"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\n evo 55\Desktop\nasdq5\NANO.csv", Destination _
:=Range("$B$11"))
.Name = "NANO" [
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.Panes(3).Activate
Range("N82:U82").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SII").Select
ActiveWindow.Panes(1).Activate
Range("B11").Select

The questions:

Line #3 of the Macro - How this data "NANO".csv can be merged and/or filled in from a separate sheet of data and cycled thrue. The macro should grab the data from a data sheet LOOP IT, go to the next line LOOP IT etc... be it 50 lines or 1,000 lines

Start with;

NANO
NANP
NANR
NANS
NANT
.....
......

and end with something like

XXXX

Easier, start with cell A1 and stop at cell A1000

What is the trick, how do you do it?????

Many thanks in advance
Eva