Copy Paste Filtered Data to Another Workbook

How to copy paste filtered data to another workbook automatically using VBA.

Below is the complete VBA code with some code-lines commented:

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

Copy Paste Filtered Data to Another Workbook

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


End With

End Sub

Watch the training video below:

Copy Paste Filtered Data to Another Workbook

Further References:

Advanced Filter


Published by

Dinesh Kumar Takyar

Welcome to! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: For a structured Excel VBA training course online you can visit:

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.