I am providing following piece of code which you can use to copy and paste the items on the another worksheet which is being filtered.
I am hoping that above mentioned code would be helpful to you.
Dim wb As Workbook, wbDest As Workbook
Dim ws As Worksheet, wsDest As Worksheet
Dim lngCalc As Long
Dim FoundCells As Range
Dim FoundCell As Range
Set wb = Workbooks("FY09 SOF")
Set wbDest = Workbooks("FY09 PR Log Blank")
Set wsDest = wbDest.Worksheets("Paste all here, then sort")
.ScreenUpdating = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
For Each ws In wb.Worksheets