Uploaded June 2020 | Updated September 2026, 2 weeks ago

---

How to copy paste filtered data to another workbook automatically using VBA. Below is the complete VBA code:
Sub CopyAutoFilteredDataToAnotherWorkbook()

Dim OtherWorkbook As Workbook
Dim myDB As Range

With ActiveWorkbook.Sheets("Sheet1")
Set myDB = .Range("A1:B1").Resize(.Cells(.Rows.Count, 1).End(xlUp).Row)
'myDB.Select
End With

With myDB
.AutoFilter field:=2, Criteria1:="Recruiting Manager"
.SpecialCells(xlCellTypeVisible).Copy
End With

Set OtherWorkbook = Workbooks.Open("C:\Users\takyar\Desktop\test-for-filtered-data.xlsx")

OtherWorkbook.Sheets(1).Activate
Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats 'Paste:=xlPasteAll
Range("A1").CurrentRegion.Columns.AutoFit
Range("C1").Select
'wbNewWorkbook.Close savechanges:=True

With myDB
.AutoFilter
End With

End Sub

Details of tutorial also available at: exceltrainingvideos.com/copy-paste-filtered-data-to-another-workbook