working with non-US dates in vba is always a pain.
if column D contains real dates (not strings) below should work. it worked for the test file i used.
Sub vbax_53986_filter_between_two_dates()
Dim EndDate As Long
EndDate = Application.InputBox("Please insert End Date", "END DATE", Format(Date, "dd.mm.yyyy"), , , , , 1)
With ActiveSheet
.Name = "Settlement Overview"
.Range("A8").AutoFilter Field:=4, Criteria1:=">=" & EndDate - 4, Operator:=xlAnd, Criteria2:="<=" & EndDate
End With
End Sub
edit:
oppps. there was an attachment.
as Aflatoon said, first convert strings in Col D to dates.