A counting variable I is initialized just prior to the loop and incremented inside the loop
Sub loopCounter() Dim I As Integer I = 1 Do While Cells(I, "A").Value <> "" Cells(I, "B").Value = Cells(I, "A").Value I = I + 1 Loop End Sub