Bom dia!!

Para a parte um use.

Option Explicit

Sub AleVBA_17568()
    Dim wsBD As Worksheet
    Dim wsCx1 As Worksheet
    Dim wsCx2 As Worksheet
    
    Set wsBD = Worksheets("BASE")
    Set wsCx1 = Worksheets("Caixa 01")
    Set wsCx2 = Worksheets("Caixa 02")

    wsCx1.Range("A2").CurrentRegion.Offset(1).ClearContents
    wsBD.AutoFilterMode = False
    With wsBD.Range("A1:G" & wsBD.Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=6, Criteria1:=1
        .Offset(1).Columns(1).SpecialCells(xlVisible).Copy wsCx1.Range("A2")
        .Offset(1).Columns(7).SpecialCells(xlVisible).Copy wsCx1.Range("B2")
    End With
    
    With wsCx1.Range("A2").CurrentRegion
        .Value = .Value
    End With
    
    wsCx2.Range("A2").CurrentRegion.Offset(1).ClearContents
    wsBD.AutoFilterMode = False
    With wsBD.Range("A1:G" & wsBD.Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=6, Criteria1:=2
        .Offset(1).Columns(1).SpecialCells(xlVisible).Copy wsCx2.Range("A2")
        .Offset(1).Columns(7).SpecialCells(xlVisible).Copy wsCx2.Range("B2")
    End With
    
    With wsCx2.Range("A2").CurrentRegion
        .Value = .Value
    End With

    Set wsBD = Nothing
    Set wsCx1 = Nothing
    Set wsCx2 = Nothing
End Sub

Att

Mestre!!!!!!!!!!

Vou testar, logo retorno com feedback

******! Obrigado ajudou muito!