Copy Specific Columns from a Filtered Range

Hi Saraang,

Here is my code:

Sub filter_copy()
With Sheets("Source").UsedRange
    .AutoFilter 12, "<>#N/A"
    .AutoFilter 23, "<>Innov"
    Sheets("Prod").Cells.Clear
    Intersect(.Rows, .Range("P5:P10000")).Copy Sheets("Prod").Range("B1")
    Intersect(.Rows, .Range("F5:F10000")).Copy Sheets("Prod").Range("C1")
    Sheets("Innov").Cells.Clear
    .AutoFilter 23, "<>Prod"
    Intersect(.Rows, .Range("P5:P10000")).Copy Sheets("Innov").Range("B1")
    Intersect(.Rows, .Range("F5:F10000")).Copy Sheets("Innov").Range("C1")
    .AutoFilter
End With
With Sheets("Prod")
    .Range("A1:A" & .Range("B50000").End(xlUp).Row).Value = "Add"
    .SaveAs ThisWorkbook.Path & "\" & .Name & ".csv", xlCSV
End With
With Sheets("Innov")
    .Range("A1:A" & .Range("B50000").End(xlUp).Row).Value = "Add"
    .SaveAs ThisWorkbook.Path & "\" & .Name & ".csv", xlCSV
End With
End Sub