Slow Macro Modify

Try changing this line

Range("E1:H" & LR).AutoFilter Field:=1, Criteria1:="="

To

Range("E1:H" & LR).AutoFilter Field:=1, Criteria1:="<>"

Is that what you want?