I have code
Sub try121()
Dim wb As Workbook
Windows("Backup Data September 28, 2010.xlsm").Activate
Sheets("Dater").Select
LstRw = Cells(Rows.Count, "O").End(xlUp).Row
Range("O1:O" & LstRw).AutoFilter Field:=1, Criteria1:="Y"
Range("B2:B" & LstRw).SpecialCells(xlCellTypeVisible).Copy _...