Sub procedures stop working when combined.

I've been working on a piece of test code that opens another spread sheet, copies all the information in a particular column, then pastes that data back in the original spread sheet. To come up with this I wrote two separate sub procedures: Copy_Cells which opens the file, closes it and pastes the data, and Select_Rows which selects the right cells in the opened file and copies them. I wrote these two pieces individually and tested them till I got them to work exactly as needed, however when I tried to merge them together as seen in the following piece of code, Copy_Cells only selects the first cell with information in it and no more. I imagine that the cause of this error is some inherent function of my code that I'm simply not aware of, so any help in correcting this problem would be greatly appreciated.

P.S. The code is now starting from cell A2 and counting up, when the point of the code is to start at A2 and count down. The code is on sheet 1 Open Test. For a test document I wrote a word in A1, then numbers for the rest of the column for some arbitrary range.