Finally got it working, this is what I ended up with Thanks again for all your help!!

Dim r As Range
Dim ws As Worksheet
Dim M As Date
Dim Y As Date
Dim C As Range
Dim d As Long

M = Range("F7")
Y = Range("F9")

Range("C13:G36").Select
Selection.ClearContents
Range("C11").Select


d = 13

Set ws = Worksheets("Sheet2")
Set C = ws.Range("C1:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)

For Each r In C

    If r >= M And r <= Y Then

  'If r = M And r = Y Then
           
        ws.Range("A" & r.Row & ":E" & r.Row).Copy Cells(d, 3)
        
        
        d = d + 1

    End If

Next

End Sub