Please use code tags when posting. Refer to Forum Rule No. 3.
Maybe:
Sub bbfan23()
Dim y As Long
y = Range("BC" & Rows.count).End(3).row
Cells.AutoFilter Field:=21, Criteria1:="<>"
Cells.AutoFilter Field:=55, Criteria1:="="
Range(Cells(2, "BC"), Cells(y, "BC")).SpecialCells(xlCellTypeVisible).Value = "X"
Columns("B:D").EntireColumn.Hidden = True
Columns("G:T").EntireColumn.Hidden = True
Columns("W:W").EntireColumn.Hidden = True
Columns("Y:Y").EntireColumn.Hidden = True
Columns("AA:AZ").EntireColumn.Hidden = True
End Sub
Bookmarks