BUSCAR OBJETIVO CON MACRO ???

Buenas tardes a todos los foristas:
por lo regular no he participado en este foro, pero no por eso no leo sus topicos, en esta ocasion quisiera compartir con el compañero la siguiente macro que uso cotidianamente para efectos de buscar un neto deseado de cualquier monto, aclaro no soy experto pero dios me ayuda

espero les sirva .
paso a explicar las celdas.
celda b7 tecleo el monto deseado
celda b6 donde deseo la cantidad resultante
celda b1 donde deseo el monto bruto

gracias. por permitirme usar este medio

Sub Botón1_AlHacerClic()

End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 17/07/2009 por gcarrizales.nld
'
' Acceso directo: CTRL+c
'sheets("prueba").select

Worksheets("prueba").Range("B6").GoalSeek Goal:=Range("b7"), ChangingCell:=Range("B1")
End Sub
perdon por los emoticones quise borrarlos pero al parecer no supe.

oie mi estimado gcarrizalesp en mi ejemplo que puse, como acomodaria esa macro ???

Salud2

E6 IMPORTE 10,000 (monto bruto)
E7 IVA 1,500
E8 SUBTOTAL 11,500
E9 RET ISR 1,000
E10 RET IVA 1,000
E11 TOTAL 9,500
E12 IMPUESTOS 1,200
E13 TOTAL NETO 8,300(donde se refleja el neto deseado)
agrego:

e14 monto que deseo
esper haberme explicado

Muchas gracias por su tiempo que se tomaron, por fin pude hacer la macro, es muy sencillo de hacer una vez que ya lo realizaste, es cuestion de analisis

Salud2 y gracias

Sub NETO()
'
' NETO Macro
'
' Acceso directo: Ctrl+Mayús+N
'
Range("E17").GoalSeek Goal:=Range("H3"), ChangingCell:=Range("E7")
End Sub