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.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DataRange As Range
Dim FilterRange As Range
Dim DestinationRange As Range
Set DataRange =...