Копирование данных из одной ячейки в другую

For i = 1 To Range("A1:B10").Count
  Cells(i, 3) = Range("A1:B10")(i)
Next i

Sub Макрос1()
Dim I As Long
For I = 1 To Range("A1:B10").Count
  Cells(I, 3) = Range("A1:B10")(I)
Next I
End Sub

For I = 1 To Range("A1:B10").Count 'перебираем все ячейки указанного диапазона
  Cells(I, 3) = Range("A1:B10")(I) ' _
  Cells(I, 3) - ячейка в i-ой строке 3-го столбца активного листа. _
  Range("A1:B10")(I) - если в диапазоне указана одна координата, счет идет слева направо, затем сверху вниз.
Next I

Sub macros2( ) 
Dim I As Long
i=1
Do while i<Range("A1:B10").Count
Cells(I, 3) = Range("A1:B10")(I)
Next I
End Sub

Sub macros2( ) 
Dim I As Long
i=1
Do while i<Range("A1:B10").Count
Cells(I, 3) = Range("A1:B10")(I)
Next I
Loop
End Sub

i=1
Do while i<=Range("A1:B10").Count 'а не < 
Cells(I, 3) = Range("A1:B10")(I)
i=i+1'а не Next I
Loop

Cells(I, 3) = Range("A1:B10")(I)

Sub TestRangeIndex()
Dim i&, r As Range
Set r = [E7:G11]
r.Interior.ColorIndex = 6
MsgBox "Нумеруем ячейки диапазона " & r.Address(0, 0)
For i = 1 To r.Count
    r(i) = i
Next
If MsgBox("Готовы пойти дальше?", vbYesNo) <> vbYes Then Exit Sub
For i = i To r.Count * 2
    r(i) = i
Next
If MsgBox("Постарайтесь угадать, где находятся ячейки с ОТРИЦАТЕЛЬНЫМИ номерами." & vbLf & _
    "Продолжить?", vbYesNo) <> vbYes Then Exit Sub
For i = -r.Count To 0
    r(i) = i
Next
MsgBox "Ну как, угадали? ;)"
End Sub