Maybe
Sub jjsiow()
Dim rng1 As Range
Dim rng2 As Range
Dim lRow As Long
With Sheets(Sheets("Dash").Range("C1").Text)
lRow = .Range("B" & .Rows.Count).End(xlUp).Row
Set rng1 = .Range("B5:B" & lRow).Find(what:=Format(Sheets("Dash").Range("C2").Value, "m/d/yyyy"), LookIn:=xlValues, lookat:=xlWhole)
Do Until Not rng1 Is Nothing
Set rng1 = .Range("B5:B" & lRow).Find(DateAdd("d", 1, Format(Sheets("Dash").Range("C2").Value, "m/d/yyyy")))
Loop
Set rng2 = .Range("B5:B" & lRow).Find(Format(Sheets("Dash").Range("C3").Value, "m/d/yyyy"))
Do Until Not rng2 Is Nothing
Set rng2 = .Range("B5:B" & lRow).Find(DateAdd("d", -1, Format(Sheets("Dash").Range("C3").Value, "m/d/yyyy")))
Loop
.Range(Cells(rng1.Row, "AA"), Cells(rng2.Row, "AD")).Copy
Sheets("1").Range("B" & Sheets("1").Range("B" & Rows.Count).End(xlUp).Row).PasteSpecial Paste:=-4163
Application.CutCopyMode = False
End With
End Sub
Bookmarks