CÓDIGO PULA LINHA PORÉM NÃO LÊ A PRÓXIMA

[Letícia08]

Olá!

Estou com problemas no meu código, ele pula linha porém na hora de calcular o valor que está próxima linha ele dá zero, poderiam me ajudar? Posso enviar meu arquivo também!!

Sub teste_m²()

i = 6 'variável para pular linha
j = 17

Dim TheVars As Range, c As Range

Do While Cells(i, 7) <> "" 'variável para gravar o conteúdo da célula

Set TheVars = Worksheets("Mapeamento").Range("G" & i, "O" & i)

'Dictionary
Dim d
Set d = CreateObject("Scripting.Dictionary")

While j <= 22

d.Add Worksheets("Mapeamento").Cells(5, j).Value, Worksheets("Mapeamento").Cells(4, j).Value
 
j = j + 1

Wend

last = ""
current = ""
cont = 0

'laço importante
For Each c In TheVars
current = c.Value
If current <> last Then
    'área correspondente do current + count
    cont = cont + d(current)
    End If
      
last = c.Value
Next c

Cells(i, 23) = cont

i = i + 1 'soma ela mesma, pula para próxima linha

Loop

End Sub
 

[Alyson Ronnan Martins]

Boa noite @Letícia08, tentei simular o seu código mais não consegui.