[I wouldn't mind just getting the program to run  down the isin column
alone with fixed values for the page number]



Count the number  of rows in your column...

Dim lRangeCount as Long

lRangeCount = Cells(Rows.Count, 1).End(xlUp).row

The number 1 represents column A, 2 = B, 3 = C etc. The above statement
counts the number of rows with values in column A. Once you have this
you may loop through your code and select each value.

Dim l as Long

Dim sValue as String

Range ("A1").Select 'Assuming Column A is where you are beginning,
otherwise select appropriate column.

For l = 0 to lRangeCount

sValue = ActiveCell.Value

[Your Code Here]

ActiveCell.Offset (1,0).Select 'Selects next cell  which in
this example would be A2

Next



This is a basic example, but should lead you in the right direction.