MACROS BUSCAR OBJETIVO AUTOMÁTICAMENTE

Se adjunta datos de la Macro.
Sub Macro1()
Dim I As Integer
For I = 14 To 30
Range("BD" & I).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("BD" & I).GoalSeek Goal:=0, ChangingCell:=Range("AO" & I)
Next
End Sub
COMENTARIOS:
EN ESTE CASO 14 SERÍA EN EL NÚMERO DE FILA QUE COMIENZO Y 30 SERÍA HASTA DONDE QUIERO LLEGAR. NOTA PARA QUE NO SALGA DEPURAR DEBERÍA INVOLUCRAR EL NÚMERO DE CELDAS (RECUENTO-1)
BD SERÍA LA COLUMNA DE LA VERIFICACIÓN (FACTOR DE FRICCIÓN TEST )
I SERÍA UN CONTADOR
AO SERÍA LA CELDA QUE QUIERO CAMBIAR (FACTOR DE FRICCIÓN)
A VECES SE REPITE END SUB ELIMINAR

[@marianievas2834]

Muchísimas gracias, era lo que andaba buscando!

[@alexpalacios2034]

Excelente video, gracias por el aporte

[@juanmarin2784]

Excelente video y explicacion, funciono perfecto

[@SheetsbyAlcantar]

Me funciono perfectamente, muchas gracias

[@kscmsv61]

Excelente video, me ayudo con un archivo de 2k lineas!

[@AriostoAntonioVazquez]

Muchas gracias.

[@dairoaalvarezrodriguez4312]

Eso si es productivo. 😎

[@chuskin1]

Genial!, muy util

[@rescol5017]

Goddd

[@zo0l159]

Te vas a ir al paraíso!!!

[@pequenahi]

Excelente vídeo, ¿sería posible que el conteo de la fila fuese automático hasta la última con datos? Es decir, en lugar de "For I = 14 To 30" que sea "To 'ultima celda con datos'". ¡Muchas gracias!

[@veronicacd4775]

Hola! Encontraste la respuesta? Yo tengo la misma duda

[@pequenahi]

@@veronicacd4775 sí, conseguí hacer algo similar que a mi me sirvió. Tengo que refrescarlo, mañana si me acuerdo lo miro.

[@juandediospalaocruz3238]

Disculpa tengo un error al momento de querer hacer la funcion objetivo automaticamente , me aparece un error que dice"error 1004 en tiempo de ejecucion , la referencia no es valida", no se a que se deba esto? si realize el prcediemitni paso por paso