You are not doing anything to the workbook when you are opening it.

Loop Until Cells(r, 2) = "" .....is now in the active worksheet because you never closed the 1st workbook after you opened it.