Consulta excel vba según condiciones, si se hace bien se sumarán puntos extra

Utiliza esto, ha sido depurado.

Sub abc()

Para i = 2 a 100 'Número total de filas de datos

Si Cells(i, 3) = "" Y Cells( i , 4) = "" Entonces

Si Celdas(i - 1, 3) lt;gt; "" Y Celdas(i - 1, 4) lt;gt "" Entonces

Para j = 2 a 6

Celdas (i, j) = Celdas (i - 1, j)

Finalizar si

Fin Sub