ＶBA　時間範囲の指定　エラー【型が一致しません】対処

指定した時間範囲内のデータのセルに対して任意の値を格納したいです
型が一致しません　というエラーが発生してしまします。

やりたいこと
スタート時間、エンド時間を指定
スタート時間とエンド時間の範囲内のデータのセルに任意の値を格納
データのサンプルは画像を参照ください。
※実際のデータの位置関係とは異なります

以下のようなコードを書いたのですが
If NAMA >= STR1 & NAMA <= END1 Then

の部分で型が一致しませんのエラーが発生します。
ヒントやアドバイス頂けますでしょうか。お願い致します。

VBA
1Dim STR1 As Date 'スタート時間
2Dim END1 As Date  'エンド時間
3Dim NAMA As Date  '比較時間
4
5Dim S As String '任意の値
6S =  2
7
8Dim i As Integer
9Dim j As Long
10
11
12
13For i = 8 To 100 Step 2
14     STR1 = Worksheets("Sheet1").Cells(i, 11).Value 
15     END1 = Worksheets("Sheet1").Cells(i + 1, 11).Value  
16    
17     
18        For j = 7 To 10000
19        NAMA = Worksheets("Sheet3").Cells(j, 4).Value
20     
21            If NAMA >= STR1 & NAMA <= END1 Then 'ここでエラー発生
22            Worksheets("Sheet3").Cells(j, 1).Value = S
23            
24            End If
25        Next j
26Next i
27