Can I have the module hereunder modified in three ways (1) Have it copy
the new dated under the last copy date in sheet two (2) The copy
information must sent to sheet2 stating form a3 downward and (3) I need
to copy information from about ten worksheet sheet in order of date
to worksheet 2

Sub FindDates()
On Error GoTo errorHandler
Dim startDate As String
Dim endDate As String
Dim startRow As Integer
Dim endRow As Integer
startDate = InputBox("Enter the Start Date: (mm/dd/yyyy)")
If startDate = "" Then End
endDate = InputBox("Enter the End Date: (mm/dd/yyyy)")
If endDate = "" Then End
startDate = Format(startDate, "mm/dd/yyyy")
endDate = Format(endDate, "mm/dd/yyyy")
startRow = Worksheets("sheet1").Columns("a").Find(startDate, _
LookIn:=xlValues, lookat:=xlWhole).Row
endRow = Worksheets("sheet1").Columns("a").Find(endDate, _
LookIn:=xlValues, lookat:=xlWhole).Row
Worksheets("sheet1").Range("A" & startRow & ":A" & endRow) _
.Resize(, 4).Copy Destination:= _
Worksheets("sheet2").Range("a1")
End
errorHandler:
MsgBox "There has been an error: " & Error() & Chr(13) _
& "Ending Sub.......Please try again", 48
End Sub