Subtração de Estoque

[Pedro Peixoto]

Na aba "Registro de Entrada" insere-se os dados, e após executar a macro "RegistrarEntrada",
os dados são copiados pras abas "Estoque", "Entradas e Saídas" e "Inventário".

A aba "Estoque" mostra quantidades atuais dos produtos, separados por tamanhos (P, M, G, 34, 36, 38, 40 e U).
A aba "Entradas e Saídas" exibe todas os registros de entrada e todos os registros de saída existentes.
A aba "Inventário" exibe todos os produtos que deram entrada.

O problema que tenho encontrado é unicamente na hora de registrar uma saída, via macro "Registrar Saída",
pois ao ser executada, tal macro deve ir ao "Estoque" e descontar as quantidades que estão sendo vendidas das unidades
que se encontram em estoque. Ao momento em que as quantidades chegarem em 0 ou em VAZIO em todos os tamanhos,
a linha será excluída.

- Pontos importantes: 
1° na aba "Registro de Entrada", as células A7, B7 e O7 saõ travadas - de resto preenche-se manualmente;
2° na aba "Registro de Saída", as células B7, D7 e O7 são travadas - de resto preenche-se manualmente.
 

Código de Registro de Saída atual:
 

Sub RegistrarSaída()

    Application.ScreenUpdating = False
    
        ' Copiar Informações Inseridas
            Range("A7").Select
            Selection.Copy
            Sheets("Entradas e Saídas").Select

        ' Garantir que a célula selecionada estará abaixo da última preenchida
            Range("A1048576").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
            
        ' Garantir que as células com fórmula sejam copiadas e coladas de maneira correta
            Sheets("Registro de Saída").Select
            Range("B7:D7").Select
            Selection.Copy
            Sheets("Entradas e Saídas").Select
            Range("B1048576").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(1, 0).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

            Sheets("Registro de Saída").Select
            Range("E7:N7").Select
            Selection.Copy
            Sheets("Entradas e Saídas").Select
            Range("E1048576").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste

            Sheets("Registro de Saída").Select
            Range("O7").Select
            Selection.Copy
            Sheets("Entradas e Saídas").Select
            Range("O1048576").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(1, 0).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

            Sheets("Registro de Saída").Select
            Range("P7").Select
            Selection.Copy
            Sheets("Entradas e Saídas").Select
            Range("P1048576").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
            
        ' Limpar informações registradas no cadastro
            Sheets("Registro de Saída").Select
            Range("A7").Select
            Range("A7").Activate
            Selection.ClearContents
            Range("C7").Select
            Range("C7").Activate
            Selection.ClearContents
            Range("E7:N7").Select
            Range("E7").Activate
            Selection.ClearContents
            Range("P7").Select
            Range("P7").Activate
            Selection.ClearContents
            
        ' Limpar validação de dados
    Sheets("Entradas e Saídas").Select
        Range("P5").Select
        Range(Selection, Selection.End(xlDown)).Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
            Range("A5").Select
        End With
        Sheets("Registro de Saída").Select
        
        ' Mostrar mensagem que informa que processo foi concluido com sucesso
            MsgBox "Registro concluído!", vbOKOnly, "Processo de Registro"
            Sheets("Registro de Saída").Select
           
           
    Application.ScreenUpdating = True

End Sub

Editado Abril 25, 2020 por Pedro Peixoto
Acrescentar informações

[Alyson Ronnan Martins]

Desculpa minha cabeça lenta kkkk teria como mandar a planilha com alguns valores, podem ser fictícios) somente para ver seu código funcionando e bolar essa solução.