Copy Rows To Predefined Sheet Based on Date Range Using Form or Message Box

Does this help:

Private Sub Button1_Click()

Dim ws As Variant
Dim lrow As Long, i As Long

Sheets("Budget").Range("A2:AG1000").ClearContents

'On Error Resume Next
For Each ws In Array("Conrad", "Robert", "Amy")
    With Worksheets(ws)
        lrow = .Range("E" & .Rows.Count).End(xlUp).Row
        For i = 3 To lrow

           If .Range("M" & i).Value  >= DateValue(DateLokup.TextBox1.Value) And .Range("M" & i).Value <= DateValue(DateLokup.TextBox2.Value) Then
                .Range("B" & i & ":AG" & i).Copy Worksheets("Budget").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
            End If
        Next i
    End With
Next ws

Unload DateLokup

End Sub

I'm entering days as d/m/yy and it works. Try other formats.