Hi,

Here are some bones of a macro to work with - not tested b/c I don't have excel open at the moment & I modified some previously exported macros to give the below...

Option Explicit
Sub CopyCertainInfo()
Application.ScreenUpdating = False
Dim CurrentSheet As Worksheet
dim ListSheet as worksheet
Dim EntireRangeToFilter As Range
Dim VisibleEntireRange As Range
dim r as long

set CurrentSheet = activesheet
Set EntireRangeToFilter = ActiveWorkbook.CurrentSheet.Range("a5:a100")
sheets.add 'only do this & the following line once
activesheet.name = "Summarised List"

set ListSheet =activesheet
CurrentSheet.select
'nb this does not check for filter existence but assumes that columns A & B are in an "autofilter range"
Selection.AutoFilter Field:=2, Criteria1:= "x"

	r = Listsheet.Range("A" & Rows.Count).End(xlUp).Row + 1

    Set VisibleEntireRange = EntireRangeToFilter.SpecialCells(xlCellTypeVisible)
    VisibleEntireRange.copy Listsheet.cells(1,r)

Selection.AutoFilter Field:=2
Set EntireRangeToFilter = Nothing
Set VisibleEntireRange = Nothing
Application.ScreenUpdating = True
MsgBox "done"
End Sub
I hope it works as is but if not let us know & someone should be able to help - I'm off to sleep now.

hth
Rob