Nao entendi direito o que vc quer so entendi que é um calculo com base na ultima linha (é o que parece), se for isso é so declarar duas variaveis e carregar os valores que se deseja calcular e depois realizar os calculos pelas variaveis

Exemplo de divisao ( que é o que parece)

Sub calcula()

dim a as long
dim b as long
dim resultado as long

a = 50
b = 10 
resultado = range("A1").value = a / b

End sub

Isso foi o que deu pra entender se nao é isso faz duas coisas disponibiliza o arquivo modelo, com dados de exemplo mostrando o resultado esperado e explica novamente.

Olá,

Muito Obrigada pelo rápido retorno. Segue arquivo, nele abri em três sheets, de um exemplo bco de dados que preciso rodar a macro, uma outra com o resultado da macro criada, e outra com a expectativa.. lembrando que o "bco de dados" é um exemplo, e a macro será rodada em outros com diferentes qtdes de linhas por isso estou tentando calcular este último passo com referência relativa..

Tks

Nao entendi direito o que vc quer so entendi que é um calculo com base na ultima linha (é o que parece), se for isso é so declarar duas variaveis e carregar os valores que se deseja calcular e depois realizar os calculos pelas variaveis

Exemplo de divisao ( que é o que parece)

Sub calcula()

dim a as long
dim b as long
dim resultado as long

a = 50
b = 10 
resultado = range("A1").value = a / b

End sub

Isso foi o que deu pra entender se nao é isso faz duas coisas disponibiliza o arquivo modelo, com dados de exemplo mostrando o resultado esperado e explica novamente.

Olhei a planilha e nao entendi pq vc nao usa formulas se elas ja estao la ...

Simples assim

Usa a macro pra deixar o arquivo no formato que deseja e calcula com a formula que ja esta la.

Altere o trecho da macro conforme abaixo

Range("l4").Select

primeiro = Range("l4").Offset(0, -4).Address(RowAbsolute:=False)
segundo = [h4].End(xlDown).Address
Range("l4").Formula = "=" & primeiro & "/" & segundo

um = [M4].Offset(0, -1).Address(RowAbsolute:=False)
dois = [H1048576].End(xlUp).Address
Range("M4").Formula = "=" & um & "*" & dois

[n4] = "=RC[-6]+RC[-1]"

Codigo completo

Sub Rateio_teste()

Range("k1").Select
Selection.Offset(2, 0).Select
Selection.EntireRow.Insert
Selection.Offset(2, 0).Select
[k1048576].End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.Offset(0, -3).Select

Dim Inicio As Long
Dim Coluna As String
Dim Intervalo As String

'Obtem a coluna da célula ativa
Coluna = Left(ActiveCell.Address(1, 0), InStr(1, ActiveCell.Address(1, 0), "$") - 1)
    
'Verifica o inicio do intervalo a ser somado, a partir da célula ativa
Inicio = ActiveCell.Offset(-1, 0).End(xlUp).Row
    
'Monta o intervalo ... por exemplo, H1:H5
Intervalo = Coluna & Inicio & ":" & Coluna & ActiveCell.Row - 1
    
'Escreve a fórmula na célula ativa
ActiveCell.Formula = "=SuM(" & Intervalo & ")"

Selection.Offset(1, 0).Select
Selection.EntireRow.Insert

[H1048576].End(xlUp).Offset(1, 0).Select

Coluna = Left(ActiveCell.Address(1, 0), InStr(1, ActiveCell.Address(1, 0), "$") - 1)
    
'Verifica o inicio do intervalo a ser somado, a partir da célula ativa
Inicio = ActiveCell.Offset(-1, 0).End(xlUp).Row
    
'Monta o intervalo ... por exemplo, H1:H5
Intervalo = Coluna & Inicio & ":" & Coluna & ActiveCell.Row - 1
    
'Escreve a fórmula na célula ativa
ActiveCell.Formula = "=SuM(" & Intervalo & ")"

Columns("L:L").Select
Selection.ClearContents
Selection.Style = "Percent"


Range("l4").Select

primeiro = Range("l4").Offset(0, -4).Address(RowAbsolute:=False)
segundo = [h4].End(xlDown).Address
Range("l4").Formula = "=" & primeiro & "/" & segundo

um = [M4].Offset(0, -1).Address(RowAbsolute:=False)
dois = [H1048576].End(xlUp).Address
Range("M4").Formula = "=" & um & "*" & dois

[n4] = "=RC[-6]+RC[-1]"

Range("L4:N4").Select
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1:C1").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
Columns("o:o").AutoFit

End Sub

Muito obrigada meninos!! De coração, Reinaldo, era exatamente isso.