Lothario wrote:
I still need help with this VBA script.
Can you please help?

Something like this - but you may need to adjust the bit about the
criteria - not sure if I have understood your requirement


With ASheet.Range("A1").CurrentRegion
.AutoFilter
.AutoFilter 3, BSheet.Range("C5").Value
.Offset(1).SpecialCells(xlVisible).Copy
BSheet.Range("D9").PasteSpecial xlValues
Application.CutCopyMode = False
.AutoFilter
End With

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup