[Adicionar nova linha em um intervalo]

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

[erro de definição de aplicativo ou de definição de objeto]

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

[Pesquisa Inversa]

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

 

[MACRO PARA GERAR IMPRESSÃO DINAMICAMENTE!]

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?

[Declarar uma matriz bidimensional como tamanho indefinido]

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