Nas células A19 e A20, está faltando a letra "s" na palavra "exaustor".

Olá, obrigado pelo retorno.
Baixei a planilha, mas verifiquei que só adicionou alguns botões sem códigos.
Qual era a ideia ?

Att,

É mais prático formatar como tabela e inserir uma linha de totais:

https://support.office.com/pt-br/article/totalizar-os-dados-em-uma-tabela-do-excel-6944378f-a222-4449-93d8-474386b11f20

Você diz criar uma tabela nomeada para cada sessão e então usar controles de tabela para adicionar as linhas ?

Obrigado pela planilha, seu código funcionou como desejava. Só não copiou direito as linhas de bordas e ao terminar o código fica uma célula selecionada.

Para evitar criar muitos botões para cada sessão. Poderia usar um formulário ao clicar um botão chamado "add item" e então carregar uma listbox com o conteúdo das linhas de uma tabela que contem os nomes das sessões, ou então criar um array com os nomes das sessões usando a coluna lateral com algum numero de controle, exemplo, quando encontrar o número 2 na coluna esquerda sabe que é um titulo de sessão e então armazena o texto da coluna direita para usar na lista box.
Ou então adicionar uma forma com o simbolo de (+) ao lado de cada sessão e então chamar o código.

O que acha que fica mais fácil implementar ?

Obrigado pela ajuda.

Se quiser adicionar ou remover setores, altere esta parte:

Private Sub Workbook_Open()
Planilha1.ComboBox1.AddItem ("SETOR 1")
Planilha1.ComboBox1.AddItem ("SETOR 2")
Planilha1.ComboBox1.AddItem ("SETOR 3")

End Sub

Muito grato em disponibilizar seu tempo em ajudar.

Quando comentou em usar o objeto table, dei uma pesquisada aqui e consegui fazer da seguinte forma.

Veja em anexo.

Poderia melhorar o código passando o parâmetro "nome da tabela", mas acho que assim resolve o que eu preciso.

Mais uma vez obrigado pela ajuda.