Tem várias formas de fazer, dependendo do tamanho e características do seus dados. Uma das mais simples seria:
Sub Copiar()
Dim L As Long, Li As Long, Ci As Long, Cf As Long, nLinhas As Long
Li = 1
Ci = 1
Cf = 2
nLinhas = 4
L = Li
Application.ScreenUpdating = False
With ActiveSheet
Do
.Cells(L, Cf).Value = .Cells(L, Ci).Value
L = L + nLinhas
Loop While .Cells(L, Ci) <> vbNullString
End With
Application.ScreenUpdating = True
End Sub
Atende?
Filipe Magno