Olá boa tarde,

Preciso definir uma margem de 4% da venda de alguns itens, o Excel possui uma função para isso “Atingir Meta” o problema e que esta função tem que ser feita célula por célula e possível criar um código em VBA para executar até uma linha especifica?

A macro abaixo executa apenas na célula AL7 preciso que execute até a célula AR13740.

Sub Meta()
'
' meta Macro
'
'
Range("AR7").GoalSeek Goal:=0.04, ChangingCell:=Range("AL7")
End Sub