¿Cómo crear un bucle if en Vba?

Sub asigna el valor de la columna 5 en la primera columna de 1 a la columna 3 ()

'Y variable es redundante, la eliminaré

Dim x As Integer

Para x = 100 a 7 Paso -1

Si Celdas(x, 1).Valor = 1 Entonces Celdas(x, 5) = Celdas(x, 3).Valor

Siguiente x

Fin Sub