Macro for Filtering

The example will obviously need modifying for your use. To filter on Column E change

rData.AutoFilter Field:=1, Criteria1:=sNm

to

rData.AutoFilter Field:=5, Criteria1:=sNm

If you ant to use the ActiveSheet then simply change this

Set ws = Worksheets("TOTAL")

to

Set ws = ActiveSheet