VBA To Loop Column And Copy Cells Contents To Another Cell

I have a script that copies data to files based on many cells contents but where I am having a problem is creating series numbers for each file.

File-01.txt
File-02.txt
..
File-100.txt

In my current code I copy files to folders by date and each folder I need series of files (Lab Testing series)

In column A1:A100 I have a series of numbers 01, 02, 03 ...100

Column B contains the Files to be saved
C:LAB2012Jan1file-01.txt
C:LAB2012Jan2file-01.txt
C:LAB2012Jan3file-01.txt
C:LAB2012Jan4file-01.txt
...
..
C:LAB2012Dec31file-01.txt

So this works fine

I now need the Script to do is to loop to Column A and select Cell 2 and do the File Copy again on the Next series

C:LAB2012Jan1file-02.txt
C:LAB2012Jan2file-02.txt
C:LAB2012Jan3file-02.txt
C:LAB2012Jan4file-02.txt
...
..
C:LAB2012Dec31file-02.txt

When Complete repeat until it reaches the end of column A

Since my Cells are populated by all the data in the workbook I thought at the end of my copy script I would take the next Cells data in A and put it in Cell H8 where all the constants are for the file names.

Column B is built using

=IF($C1="","",$I$1&$G$4&$D1&""&$I$8&$H$8)
=IF($C2="","",$I$1&$G$4&$D2&""&$I$8&$H$8)