Dim rng as Range, rng1 as Range
Dim ans as String, Target as Long
Dim res as Variant
with worksheets("Sheet1")
set rng = .range(.Cells(2,1),.Cells(2,1).End(xldown))
End with
ans = Inputbox("Enter your date:")
if cdate(ans) then
target = clng(cdate(ans))
res = Application.match(target,rng,0)
if not iserror(res) then
set rng1 = rng(res)
rng1.copy Destination:=worksheets("Sheet2").cells( _
rows.count,1).End(xlup)(2)
else
msgbox ans & " was not found"
end if
else
msgbox ans & " is not a valid date"
end if

--
Regards,
Tom Ogilvy

" wrote:

I am trying to write the code that will allow me to input date ranges
and copy the information by the date that it was entered.