OK

Sub MoveDown()
Static RowNo As Integer
If RowNo = 0 Then RowNo = 1
Cells(RowNo, 1).Select
RowNo = RowNo + 1
End Sub

Copy this into a module in the VBA window. Each time it is run, the active
cell will move down one row, starting in A1.

If this does what you want, remove the first and last lines, and place the
code into your own macro.

Hope this works.

Regards - Dave.

"tjb" wrote:

I think this may be getting too complicated so maybe I can make this even
simpler. All I really need is the line of code that moves the active cell
from A1 to A2, then A2 to A3, A3 to A4 and so on. Thanks for your patience
on this, I really appreciate it!

"Dave" wrote:

Hi,
I didn't check the rest of your code. I assumed it was working all except
for the moving to a new cell thing.
XL's copy/paste action doesn't care about the contents of a cell, whether
text or integer, or anything else.
When you select Range ("A8") from the Extract.xls workbook, there is no
worksheet specified. Does that workbook only have one sheet?
What actually happens when you run the macro?
Dave.