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