object objectName { fun funName() { } }
Вам не хватает :
:
Измените
Field = 1,Criteria1="=2"
на
Field:=1, Criteria1:="=2"
Также объявите Const xlCellTypeVisible = 12 вверху, как вы сделали для xlUp
Const xlCellTypeVisible = 12
xlUp