VBA para divisão

[hinatila]

Tenho a Tabela 1. A Tabela Atualizada é a variação de linhas da Tabela 1 ... que é um range dinâmico... uma hora pode ter 3 linhas preenchidas... em outra 7, 10 ou mais... Preciso de uma rotina de vba para dividir o valor contido em cada célula pelo total... escrevi um código mas não consigo que seja reaplicado a todo intervalo da tabela...

Código:

Sub CALC_PERC()

Dim linha As Long
Dim sUltimo

linha = Range("b2").End(xlDown).Row
ultima = Range("b" & linha).Value

Plan10.Range("b2").Select
ActiveCell.Value = ActiveCell.Value / ultima

End Sub
[attachment=0]WhatsApp Image 2017-01-31 at 10.35.47.jpeg[/attachment]

[Reinaldo]

Cross: http://www.planilhando.com.br/forum/vie ... 32#p118132

Poste seu modelo, mostrando manualmente o que tem e o que espera receber