Sorry, I don't have time before going to work to give you a "full" solution.
You could use something like
For i - 1 to 130
Range("A" & i).Select
However, I think that all this copying and pasting is going to slow things down. Much faster to use code like
Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("B" &i).Value
which will "copy" one cell at a time. If you're trying to copy several columns however, your method might be best.
Also, to speed things up insert the following near the top
Application.ScreenUpdating = False
and near the bottom
Application.ScreenUpdating = True