Experimente este código. Não anda, como você pediu, só incrementa.

Sub IncrementaLinha()
If ActiveCell.Address <> "$AO$1" Or Not ActiveCell.HasFormula Then Exit Sub
[AO1].Formula = Replace([AO1].Formula, [AO1].Precedents.Row, [AO1].Precedents.Row + 5)
End Sub

Boa noite.

Segue conforme solicitado.

Para o bom funcionamento, só será iniciado caso esteja numa linha múltipla de 5.

@kev027 bom dia, obrigado, é basicamente o que eu preciso.

porem me perdi um pouco para adaptar sua programação para o que preciso, ainda sou iniciante em VBA.

estou anexando a planilha que quero fazer essa alteração, para entender melhor, se conseguir fazer nela fico grato.

A ideia é a seguinte, na planilha tenho duas abas, "Contas nubank" e "soma".

na aba "contas nubank", voce vera que tem as contas referentes a cada mes, e o total no final.

na aba "soma", eu criei um botão "atualizar", onde ao clicar, gostaria que exibisse o valor do total que esta na outra aba, porem para atualizar todo mes.

resumindo, gostaria q ao apertar o botao 'atualizar', na aba 'soma', na linha que esta descrita "Total NU", exibisse o valor total do mes de Abril que esta na outra aba. E ao clicar novamente, andaria 6 colunas para exibir o total do proximo mes, e assim por diante.

consegue ajudar?

Boa noite, segue.

Procurei deixar comentários explicativos para facilitar o entendimento caso queira adaptar novamente. É essencial que não preencha até a última linha, pode adicionar ou remover quantas quiser mas nunca una as informações, o limite é de 1 linha entre total responsáveis/total cartão e as informações da venda.

Caso queira retornar o Total Nu de outro responsável:

1. Apenas faça uma nova condição mudando o endereço da célula ativa(endereço do total do responsável na aba "Soma")
2. Mude o valor de procura para o nome do responsável do .Find()
3. Mude o endereço de retorno do total caso todas as condições sejam atendidas.