Boa tarde!!

Eu não sei se entendi.

Sub AleVBA_22502()
Dim Area
    Application.EnableEvents = False
    Application.ScreenUpdating = False
        For Each Area In Range("C10:U19").Areas
            Area.Offset(, 22).Value = Area.Value
        Next
        
        Dim c As Range
        For Each c In Range("Y10:Q19")
            With c
                If (.Value = [R7].Value) Or (.Value = [S7].Value) Or (.Value = [T7].Value) _
                Or (.Value = [U7].Value) Then .ClearContents
            End With
        Next c
        
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Att

Boa tarde!!
Correção do intervalo ("Y10:AQ19")

Sub AleVBA_22502()
Dim Area
Dim c As Range
    Application.EnableEvents = False
    Application.ScreenUpdating = False
        For Each Area In Range("C10:U19").Areas
            Area.Offset(, 22).Value = Area.Value
        Next
        For Each c In Range("Y10:AQ19")
            If (c.Value = [R7].Value) Or (c.Value = [S7].Value) Or (c.Value = [T7].Value) Or (c.Value = [U7].Value) Then c.ClearContents
        Next c
        Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Att

Ola Alexandre , é quase isto... só preciso que ela se enquadre na tabela 2 ( de 1a 15) ou seja vai tirar o excedente da tabela 1 (como foi feito) e transferir para Y10:AM19 em ordem. Se fosse possível tal feito , ficarei muito grato....
Jau