Copy Range Values According To Cell Value

I 've a table of data It begins from A4 :f last row
In "A"column dates and in the other coulmns from b:f different data

in cell "g4" Iwil write the new sheet name
In cell "h4" I write the starting date
in "i4" I write the end date

the starting date and the end date are equal to values in range (A:A)

now

i want a vba code to select the part of table which starting with the row where is the starting date-("h4" ).value- is found in range(a:a) ,and the end of the selected part of table can be difined according to the "I4" value.
after selecting this part of date i want to copy it to sheet according to G4 value