
Selection.AutoFilter
ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10, Criteria1:="="
Range("J4").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=+OFFSET(RC,-1,0)"
Range("J4").Select
Selection.FillDown
ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10
ActiveWindow.SmallScroll Down:=-12
Range("J1").Select
|
