Adicionar nova linha em um intervalo

[arthur.andrade96]

Oi pessoal, tudo bom? Venho pedir encarecidamente que me ajudem! 

Estou tentando criar um banco de dados, mas que possui várias "categorias".

Por exemplo, A4:AN65 possui a categoria "Produtos" e A72:AN135 possui a categoria "Produtos Online" e daí por diante.

Todas essas categorias são adicionadas por meses, e possuem registros desde 2012 (de Janeiro a Dezembro, de 2012 até 2016).

Eu queria, cada vez que clicasse em um botão, adicionar um mês X ao final da categoria Produtos (no caso, uma linha no fim da A65) e adicionar o mesmo mês X ao final da categoria Produtos Online (no caso, uma linha após a A135).

Importante frisar que quero adicionar ao final dessa linha, mas após ela há outras linhas preenchidas, como TOTAL, MÉDIA e etc.

Alguém sabe como faço isso?

Segue imagem como EXEMPLO.

[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