It is probably a dumb mistake but I am not seeing it. All this code runs all the way through but does not filter the results.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DataRange As Range
Dim FilterRange As Range
Dim DestinationRange As Range
Set DataRange = DataSheet.Range("A1").CurrentRegion
Set FilterRange = DinD.Range("C4:C6")
Set DestinationRange = DinD.Range("C37").CurrentRegion
If Target.Address = "$C$5" Then
Application.EnableEvents = False
DestinationRange.Offset(1).ClearContents
DataRange.AdvancedFilter xlFilterCopy, FilterRange, DestinationRange
Application.EnableEvents = True
End If
End Sub