Identify Cells Between A Date Range

I want to select the cost for fuel based on the date using the select case method.

Sub FuelCostApplication()
Dim Check As Integer
Do While Check < 10
Select Case Range("B4").Value
Case 8 / 30 / 2007 To 9 / 5 / 2007:
Range("C10").Value = Range("B4").Value
ActiveCell.Offset(1, 0).Select
Case Else
Range("C10").Value = 0
End Select
Check = Check + 1
Loop
End Sub

CREATE TABLES LIKE BELOW?
-----------A----------- ---B---- --C-- --D-- --E-- F
1 US Air - Ground Expense
2 Fuel
3 Week1 Week2 Week3 Week4........................