Extract Data Within Date Range

I have a an excel file which has 2 columns of data. 1st column indicates the date. 2nd column indicates the data associated with the date.

I would want to create a code that is able to extract the dates that is able to let user select the date range and its associated data and copy it into another worksheet.
But it seems that my below code fails. Can anybody give me some advice?

For eg in the attachment file, the Raw Data worksheet contains all the infomation and i wish to copy all the data from 8thJuly07 to 30thJuly07 to another sheet named Edited Data.

Sub date_choice()
Dim i As Integer, j As Integer
Dim end_date_last_occurence As Integer, No_of_end_date_occurence As Integer
Dim strt_date_1st_occurence_row(1 To 10000) As Variant
Dim end_date_1st_occurence_row(1 To 10000) As Variant

Raw_data_last_row = Range("A" & Rows.Count).End(xlUp).Row 'Get the last row no

Sheets(1).Name = "Raw Data"
start_Date = InputBox("Enter Start Date", "Start Date", "dd,mm,yy")
end_Date = InputBox("Enter End Date", "End Date", "dd,mm,yy")