运行报错，错误13

wang681218

我是一个新手，下面的语句报错，错误13
d 是个日期
表一的c列也是时间，B列是数值，目的是判断 10050/B列数值 + C列日期的结果与 d 比较
请各位大侠指教

Sub Calculate_client()
    Dim i&, r&, d&, k&, j&, l&
   
    Sheets(1).Activate
    r = Range("g1000000").End(xlUp).Row
    k = 2 'Sheet2 的起始行
    d = Sheets(2).Range("a1").Value
   
    For i = 1 To r
   
     If Sheets(1).Range("b" & i).Value <> "" And Sheets(1).Range("c" & i).Value <> "" Then
       h = 10050 / Sheets(1).Cells(i, 2).Value
       h1 = Sheets(1).Range("c" & i).Value
       h = h + h1

   
        If h < d Then
           Sheets(2).Range("c" & k).Value = Sheets(1).Range("a" & i).Value
           Sheets(2).Range("d" & k).Value = Sheets(1).Range("c" & i).Value
         
           k = k + 1
   
        End If
      End If
    Next
   
End Sub