Olhei para a planilha e nao entendi o que vc precisa.

Boa noite, MPrudencio.

O quero fazer é deixar as séries com o mesmo tamanho.
Eu tenho 4 séries quero identificar a menor e deixar todas elas com a mesmo tamanho, de acordo com a menor série.

Boa tarde, MPrudencio.

Consegui montar um código que identifica a quantidade de registros nas séries, e insere logo acima da coluna a quantidade, gostaria de uma ajuda para identificar a menor série e ajustar as outras séries de acordo com a menor série.

Boa tarde, Srs.

Consegui escrever um código que identifica qual a menor série dentre as 4 disponível no arquivo.
Depois utilizando a menor série como padrão realiza a checagem nas outras séries para identificar se existe registros iguais, registro concordante pinta em amarelo.
O que quero fazer agora e excluir o registro da série e o total da série para igualar todas as séries porem não consegui, anexo tem o arquivo que esta identificando os registros iguais.

* Não quero excluir a linha toda somente as duas colunas da série

Toda e qualquer ajuda e bem vinda

Obs.: Sei que meu código não é enxuto mas foi o que consegui montar

Pergunta vc quer excluir o que esta identificado pela cor? Ou o que nao esta?

No caso de ser o que esta identificado vai excluir de acordo com o seu exemplo toda a coluna J I?

E em caso de ser o que nao esta identificado vai excluir toda a coluna G H?

Boa tarde, MPrudencio.

Pergunta vc quer excluir o que esta identificado pela cor? Ou o que nao esta?

Quero excluir o que não está identificado pela cor

No caso de ser o que esta identificado vai excluir de acordo com o seu exemplo toda a coluna J I?

Não

E em caso de ser o que nao esta identificado vai excluir toda a coluna G H?

Não

Quero excluir a célula que esta sem a cor e o seu respectivo total, estilo o excluir deslocar célula para cima.

No seu exemplo as colunas IJ nao possui nenhuma celula colorida, neste caso nao faz nada??

O codigo abaixo nao esta pronto mas serve como ideia inicial.

Estou partindo do principio do exemplo

Datas em ordem crescente e sem nenhuma data nao presente apos a primeira

Tenta completar

Sub excluir()
 Dim data As Date
 
 data = Range("J4").Value
 
Do While ActiveCell <> ""
Range("A4").Select

If ActiveCell.Value <> data Then

Range("A4:B4").Select
    Selection.Delete Shift:=xlUp
    Range("A4").Select
    
    End If
    Exit Sub
    Loop
    
End Sub

Boa noite, MPrudencio.
As datas sempre estão em ordem crescente e sem nenhuma data não presente apos a primeira, todas as séries que irei utilizar serão completas, por que quando chegar nesse ponto já foram tratadas anteriormente.

Obrigado, pela força ...

Boa noite, Galera.

Depois que quebrar a cabeça com essa bagaça, consegui chegar onde eu queria.
Anexo tem a base, pra quem quiser olhar o código, melhorias na estrutura do VBA, aceito sugestões.

Gostaria de agradecer,pela ajuda de todos do fórum ....