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