One way:

Record a macro doing an advanced filter.

With a little editing, I got

Public Sub AutoFilterAs()
Range("C1").Copy Range("E1")
Range("E2").Value = "A"
With Range("A1").CurrentRegion
.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:E2"), _
CopyToRange:=.Offset(.Rows.Count + 2, 0).Resize(1, 1), _
Unique:=False
End With
Range("E1:E2").ClearContents
End Sub

See

http://www.contextures.com/xladvfilter01.html

for more help.



In article , "NP" wrote:

Looking for a solution to this little problem in Excel ...

Cells A1 to C7 contain the main data. What I would like to do is select all
of the items with a Condition of A and place them in a little summary as
shown in A9 to C12. Any ideas how to automate this please?

Many thanks,

NP.

Spreadsheet:

A B C
1 Pt No. Desc Condition
2 1 Apple A
3 2 Pear A
4 3 Banana B
5 4 Orange A
6 5 Grape C
7 6 Sultana B
8
9 Pt No. Desc Condition
10 1 Apple A
11 2 Pear A
12 4 Orange A