>>10
すげーざっくりだけどやりたいことはこんな感じ？
やりたいことがあってるならもう少しちゃんとしたコードにはするけど
SelectとかCopy、Pasteは基本VBAで使わないので

Dim WS As WorkSheet
Set WS=ActiveSheet
Dim RngA1 As Range
Set RngA1=WS.Cells(1,1)

Dim i As Long
For i = 1 to 16384
　If WS.Cells(i,1).Value="" Then
　　Exit For
　Else
　　WS.Cells(i, 1).Value=WS.Cells(i, 2).Value
　End If
Next