ActiveSheet.Range("$A$1:$IV$578").AutoFilter Field:=61, Criteria1:=Array( _
"84013", "84032", "84000", "84027", "84916", "84059", "84091", "84097", "84917", "84035", "84094", "84913", "84005", "84915", "84911", "84022", "84096", "84097", "84008", "84092", "84010", "84054"), _
Operator:=xlFilterValues
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-27
[COLOR="red"]Rows("10:10").Select[/COLOR]Range(Selection, Selection.End(xlDown)).Select
Selection.Copy