
Sub Macro1()
Range("J6:k6").Copy Destination:=Range("a2")
Range("A5").Select
Selection.AutoFilter
Range("A5:G44").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:B2"), CopyToRange:=Range("J16:P16"), Unique:=False
End Sub
|
