Pessoal, boa tarde

Estou com uma dúvida com relação a uma macro de atingimento de meta. Para contextualizar, eu preciso realizar um atingir meta para cada linha, onde a célula de definição é o Total (Coluna AH), a meta é o valor do investimento (coluna BA) que mudará para cada linha e será o input que a área colocará e alternando a célula Event (coluna Z), então é um caso de atingir meta com variação do valor de meta. 

Eu criei a seguinte Macro: 

Sub AtingirMeta()

Dim MargemDesejavel As Double

MargemDesejavel = Range("BA" & ActiveCell.Row).Value

Range("AH3").Select

While ActiveCell.Value <> ""

' AtingirMeta Macro
'

'
ActiveCell.GoalSeek Goal:=MargemDesejavel, ChangingCell:=Range("Z" & ActiveCell.Row)

ActiveCell.Offset(1, 0).Select

Wend

End Sub

----------------

Porém ela não funciona, ela faz o "atingir meta" para um único valor de meta que é o da primeira linha. Vocês conseguem me ajudar, por favor? Talvez não seja a melhor forma de fazer este teste de hipótese, se alguém tiver alguma outra sugestão, por favor, fique a vontade. 

O arquivo exemplo segue em anexo, com apenas três linhas, mas são muito mais. 

Obrigado pela ajuda.