VBA Найти, скопировать и вставить

Question

Я пытаюсь заставить свой код VBA найти дату начала, а затем дату окончания через 30 дней. Затем я хочу, чтобы он скопировал строки в диапазоне начальной и конечной даты. Все даты расположены в хронологическом порядке, а дата начала определяется пользователем в другом месте моего кода. Вот что у меня есть, но я продолжаю получать сообщение об ошибке:

Sub thirtyDaydata()

Dim endDte As Date
Dim dte As Date
dte = Range("A1").Value
endDte = dte + 30
Dim range1 As Range
Dim range2 As Range



Set range1 = Workbooks("date.csv").Worksheets(1).Range("A4:A35").Find(dte, LookIn:=xlValues)
Set range2 = Workbooks("date.csv").Worksheets(1).Range("A4:A35").Find(endDte, LookIn:=xlValues)
Workbooks("Draft4.xlsm").Worksheets(1).Range("range1:range2").Copy Range("D46")
            
End Sub

Простите меня, если это простое решение - я новичок в VBA.