Ingresar datos en la primera celda vacía de izq. a dercha

Cerrado
andresko
Message postés
8
Date d'inscription
lunes, 15 de febrero de 2016
Estatus
Miembro
Última intervención
viernes, 19 de febrero de 2016
- 15 feb 2016 a las 20:56
Hola estoy haciendo un trabajo para mi practica profesional y necesito hacer que este código ingresen los datos en la primera celda vacía que encuentre cuando se cumpla la condición de If después del For, mi problema es que quiero que busque esta celdas de izquierda a derecha, me explico:

For i = 12 To 100
For j = 18 To 50
If Cells(i, j) = Cells(1, 2) Then
Cells(3, i - 10) = Cells(i, 1)
Cells(4, i - 10) = Cells(i, 9)
Cells(5, i - 10) = Mid(Cells(10, j), 11, 2)
Cells(6, i - 10) = Cells(i, 13)
Cells(7, i - 10) = Cells(i, j)
End If
Next j
Next i
End If

en este momento el codigo ingresa los datos en las celdas (i , el numero de la columna)
pero a medida que aumenta el i ingresa los datos pero deja columnas vacias entre medio, si me ayudas con esto estaria muy agradecido