Bom dia!

Pessoal sou novo no fórum, quero saber se alguns de vocês poderiam me informar como faço para automatizar o recurso atingir metas, queria definir uma célula a qual eu colocaria o valor e automaticamente alimentasse as 200 linhas da coluna "p", coloquei uma imagem para ilustrar a planilha.

Obrigado

Sub Macro1()
'
' Macro1 Macro
'

'

Range("P14").GoalSeek Goal:=10, ChangingCell:=Range("M14")
Range("P15").GoalSeek Goal:=10, ChangingCell:=Range("M15")
End Sub