The following code works for filtering data. But what is the code to un-filter it.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
If Target.Address = Range("M2").Address Then
Range("A3:M700").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("M1:M2")
End If
End Sub