Buscar objetivo automatico

Hola amigos, soy nuevo en el mundo de los macros en Excel y necesito ayuda!

Tengo una planilla en la cual utilizo "buscar objetivo" y digito valor que quiero. Intente hacer una macro "grabando el proceso" para que el valor deseado lo pueda obtener de una celda.

Grabe la macro y salió lo siguiente.

Sub BUSCARV()
'
' BUSCARV Macro
'

'
Range("AP13").GoalSeek Goal:=Range("AQ13"), ChangingCell:=Range("W13")
End Sub

La macro funciona perfectamente pero solamente en la fila que grave esta macro.

Como hago para que esta macro funcione en toda la hoja de cálculo de Excel??

Desde ya agradezco.

Saludos.