Hi,

Would anyone be able to tell me why the following is not working?

ActiveSheet.Range("$A$1:$L$408").AutoFilter Field:=1, Criteria1:="="
Range("A1:A2000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

TIA