I am trying to compare a value and then add that value to a cell. but
my sum is not coming right





Sub compare_price()
Dim i, j, k As Integer
Dim X, LR, LR1 As Long

LR = Worksheets("Expenses").Range("B" &
Rows.Count).End(xlUp).Offset(1, 0).Row
LR1 = Worksheets("Statement").Range("B" &
Rows.Count).End(xlUp).Offset(1, 0).Row
Set starta = Worksheets("Expenses").Range("B7")
Set startb = Worksheets("Statement").Range("A1")

'****set date format*****
For i = 1 To LR
starta.Offset(i, 0).Value = starta.Offset(i, 0).Value
starta.Offset(i, 0).NumberFormat = "mm/dd/yy;@"
Next i


starta.Offset(-2, 4) = 0
For i = 1 To 18
For j = 0 To LR1
If (starta.Offset(i, 4).Value = startb.Offset(j, 2).Value * (-1) And
starta.Offset(i, 0) = startb.Offset(j, 0)) Then
If starta.Offset(i, 4) < Empty Then
starta.Offset(i, 4).Interior.ColorIndex = 6
End If
'*******THIS LINE BELOW NEEDS CORRECTION*******
starta.Offset(-2, 4) = starta.Offset(-2, 4).Value + starta.Offset(i,
4).Value

End If
Next j
Next i

End Sub