VBA Autofilter 3 Criteria

[mana]

Option Explicit


Sub test3()
    Dim r As Range
    Dim c As Range     
    Set r = Range("A7")
    Set r = Range(r, r.CurrentRegion(r.CurrentRegion.Count))
    Set c = r.Resize(2, 3).Offset(r.Rows.Count + 1)     
    c.Cells(1, 1).Value = r.Cells(1, 5).Value
    c.Cells(1, 2).Value = r.Cells(1, 15).Value
    c.Cells(1, 3).Value = r.Cells(1, 15).Value
    c.Rows(2).Value = Array("CP", "<>CA", "<>RJ")
    r.AdvancedFilter xlFilterInPlace, c
    c.ClearContents     
End Sub