Ayuda con una macro

Hola a todos los foristas miren necesito ocupar la siguiente macro Range("S7").GoalSeek Goal:=Range("J7 "), ChangingCell:=Range("O7")

Pero quiero que se Ejecute desde la fila #7 y hasta donde tenga algun valor de la coluna (S)

Alguien me podria ayudar, se los agradecere mucho

me no entender

podrías explicarte un poco mejor para poder entenderte

Puedes utilizar algo como esto,

Sub Prueba()
Dim rng As Integer
Dim iRow As Integer

iRow = Range("S65536").End(xlUp).Row

For rng = 7 To iRow
'Tu código aquí
Next rng

End Sub

Ok ya intente con lo que me ayudaste OCruzG

Pero no me salio

Puse asi la macro

Sub Prueba()
Dim rng As Integer
Dim iRow As Integer

iRow = Range("a65536").End(xlUp).Row

For rng = 7 To iRow
Range("S7").GoalSeek Goal:=Range("J7 "), ChangingCell:=Range("O7")
Next

End Sub


A lo mejor no es la macro adecuada asi que aquí expongo mi caso en la columna (S) tengo una formula y en esta columna después de que se ejecuten las operaciones quiero que sea igual dato que tengo en la columna (J) y que el resultado me lo ponga en la columna (O)

Espero que me puedan ayudar

alopez, porque no subes un archivo con un ejemplo, me parece que así podriamos ayudarte de forma acertada.

Saludos.

OK aqui esta Espero que se pueda y tambien queda bien pues que se publique


Y muchas Gracias a todos