vba copy active sheet to closed workbook

[learn72]

Can we copy specific columns in vba from active workbook to a closed workbook in a specific directory.

Suppose active workbook assuming row 1 are headers , copy column A , C,D, E, F AND AA to a close workbook on c:\\testdata\keeprecords

row1 are SAME HEADERS as active worbook .

A	C	D	E	F	AH
A	B	C	D	E	F

[mana]

Option Explicit


Sub test()
    Dim r As Range
    Dim p As String
    
    p = "c:\\testdata\keeprecords\********.xlsx"
     
    Set r = Range("A1").CurrentRegion.Columns("A:AA")
    
    With Workbooks.Open(p).Sheets("*******")
        r.AdvancedFilter xlFilterCopy, , .Range("A1:F1")
        .Parent.Close True
    End With
    
End Sub

マナ

[learn72]

Thanks for assistance.

Working as requested