Daniel R Beneton

Segue solução; Não consegui enviar o anexo por aqui... me passa seu email que te encaminho. Option Compare Text Sub adiciona_mes() lin = 6 fim = Range("C" & Rows.Count).End(xlUp).Row mes = Range("H2") Do While lin <= fim If Cells(lin, 3) = "Total" Then Rows(lin).Insert Cells(lin, 3) = mes lin = lin + 1 End If lin = lin + 1 Loop End Sub

David, Tenta atualizar a TD com o código abaixo... se não der certo envia novamente a planilha, esse link está dando erro. ActiveWorkbook.ActiveSheet.PivotTables("nome da tabela dinâmica").PivotCache.Refresh

Junior, teoricamente esse problema é simples resolver... poderia enviar o arquivo para facilitar o entendimento?

só para entender melhor! Quando o valor de algum item ficar zerado, não deverá imprimir esse item? Ex do caso acima da padaria Suspiro... deverá imprimir toda aquela informação (Globo, Dia, Extra, Lance, Expresso) que contem valor e as que estão zeradas não deve aparece. A macro deverá enviar o arquivo para impressão?

Verifica se te ajuda! Qualquer coisa tenta detalhar melhor o problema. Abs Sub matrizbi() 'declarar a matriz e colocar o tamanho da dimensão 'no caso abaixo a matriz tem 3 dimensões Dim matriz(3, 3) As String 'atrelar valor a matriz 'normalmente utilizamos estrutura de loop para inserir os valores 'abaixo sem loop matriz(1, 1) = "Sapato 1" matriz(1, 2) = "Sapato 2" matriz(1, 3) = "Sapato 3" 'segunda dimensão matriz(2, 1) = "Tenis 1" matriz(2, 2) = "Tenis 2" matriz(2, 3) = "Tenis 3" 'terceira dimensão matriz(3, 1) = "Chinelo 1" matriz(3, 2) = "Chinelo 2" matriz(3, 3) = "Chinelo 3" 'inserir o restante do código e referenciar a matriz End Sub