I am trying to select a cells br3 to bs2000 which are on sheets MACROS and then after selecting them, i filter the columns based on a criteria and then finally i need to copy them over.
This is the code i have but there is some problem as it gives an error while selecting the cells...
Sheets("macros").Select
Range(br3, bs2000).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Selection.Copy
ActiveWindow.SmallScroll Down:=-12
Range("BT3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("BR3").Select
Selection.AutoFilter
Please let me know whats wrong with this??
thank you
Navya
This is the code i have but there is some problem as it gives an error while selecting the cells...
Sheets("macros").Select
Range(br3, bs2000).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Selection.Copy
ActiveWindow.SmallScroll Down:=-12
Range("BT3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("BR3").Select
Selection.AutoFilter
Please let me know whats wrong with this??
thank you
Navya