Ошибка 13 type mismatch

Public Sub zapsuk()
Dim i As Integer, j As Integer, k As Integer, j1 As Integer, j2 As Integer
Dim sm As Double
Dim st As String
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
Set sh1 = ThisWorkbook.Worksheets("Лист1") 
Set sh2 = ThisWorkbook.Worksheets("Лист2") 
Set sh3 = ThisWorkbook.Worksheets("Лист3") 
j = sh1.Cells(Rows.Count, "A").End(xlUp).Row
j1 = sh2.Cells(Rows.Count, "A").End(xlUp).Row
j2 = sh3.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To j
st = Trim(Str(sh1.Range("a" & i)))
For k = 1 To j1
If Trim(Str(sh2.Range("a" & k))) = st Then
sh1.Range("c" & i) = CDbl(Str(sh2.Range("c" & i)) - CDbl(Str(sh1.Range("c" & k))))
sh2.Range("d" & k) = 1
sh1.Range("d" & i) = 1
End If
Next k
Next i
For i = 1 To j
If Not sh1.Range("d" & i) = 1 Then
sh3.Range("a" & j1 + 1) = sh1.Range("a" & i)
sh3.Range("b" & j1 + 1) = sh1.Range("b" & i)
sh3.Range("c" & j1 + 1) = sh1.Range("c" & i)
j = j - 1
sh1.Rows(i).Delete
i = i - 1
End If
Next i
For i = 1 To j1
If Not sh1.Range("d" & i) = 1 Then
sh3.Range("a" & j1 + 1) = sh2.Range("a" & i)
sh3.Range("b" & j1 + 1) = sh2.Range("b" & i)
sh3.Range("c" & j1 + 1) = sh2.Range("c" & i)
j = j - 1
sh1.Rows(i).Delete
i = i - 1
End If
Next i
 
End Sub

If sh1.Range("d" & i) <> 1 Then

If Not(sh1.Range("d" & i)) = 1 Then