Hi,

I have a worksheet the data is setup like so:

Building RM # Type Size
Building 001 105 4
Building 001 106 101 4
Building 001 108 5
Building 001 107 5
Building 002 201 G 6
Building 003 205 J 6
Building 003 209 B 8
Building 003 121 8
Building 004 124 5
Building 004 123 5
Building 004 1 A 4

When A2 Building is filtered I need to be able to select each criteria
one by one and copy the Building and the data from E1 to Worksheet 2
beginning with A2.

Can the macro below be modified to do the above?

<BEGIN Macro Code

Sub AutoFilterList()
'
With Selection.AutoFilter
.Field = 1
For Each crt In .Criteria1
MsgBox crt
Next
End With

<END Macro Code

Thnak you for your help,
jfcby