Modificar distintas celdas mediante el uso del bucle while en VBA para Microsoft Excel

Podemos movernos por las celdas de Microsoft Excel modificando los valores de la función Cells mediante un bucle while en VBA.

En lugar de utilizar la variable contador del bucle while para modificar el valor de la celda, la usaremos para indicar celdas distintas.

A continuación muestro el código usado. 

El resultado de la ejecución de los bucles es el que se muestra a continuación.

Este es el código listo para copiar.

Sub bucleWhile()

Dim contador

contador = 1

While (contador < 10)

    Cells(contador, contador).Value = contador

'    Range("c4").Value = contador

    contador = contador + 1

Wend

End Sub