Hi all,
I wrote the following function . But in some time the result is showing
wrong format. When VarSum gets value 185.42 and ValueSum gets -185.42 the
result should be 0.

VarSum = VarSum + ValueSum
0= 185 + - 185 . But some cases Excel shows the balance as
8.5265128E-14.

Please help. I given the function below.

Sub CashBookMacrosnew()
Dim VarSum As Double
Dim ValueSum As Double
Dim VarSumOld As Double
Dim totalsum As Double

lastrow = Range("B" & Rows.Count).End(xlUp).Row
currow = ActiveCell.Row
pre_row = ActiveCell.Row
Col_A = ""

For RowCount = 1 To lastrow
If RowCount 1 Then
pre_row = RowCount - 1
If Range("A" & RowCount) < "" Then
VarSumOld = VarSum
VarSum = Range("R" & RowCount)
Range("Y" & pre_row) = VarSumOld
Else

ValueSum = (Range("R" & RowCount) + Range("S" & RowCount) + Range("T" &
RowCount) + _
Range("U" & RowCount) + Range("V" & RowCount) + Range("W" & RowCount) + _
Range("X" & RowCount))
VarSum = VarSum + ValueSum
End If
End If


Next RowCount

End Sub