Enter A Date From An Input Box

I would like to enter a date from an input box(which i have entered in the code below), this would then lookup in column F and find all rows and copy them to relevant sheet 7 days from the date entered.

E.g. if 24/11/2006 this would bring back all rows which from the 17/11/2006

Sub FindMe()
Dim intS As Integer
Dim rngC As Range
Dim strToFind As String, FirstAddress As String
Dim wSht As Worksheet
Dim rngSearch As Range
Dim strToFind1 As String
Dim rngC1 As Range

Application.ScreenUpdating = False

intS = 1
Set rngSearch = Worksheets("Template").Range("a3:z20000")
Set wSht = Worksheets("Closed Issues")

strToFind = InputBox("Enter the title to find").................