Makro Kodu üst üste toplama hata veriyor

[sirkülasyon]

Sub toplam()
For i = 1 To 367
    If Cells(i, "A") = "" Then GoTo 10
    If Cells(i, "E") = "" Then
        Cells(i, "E").Formula = "=" & Cells(i, "A")
    Else
        Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & Cells(i, "A")
    End If
10:
Next
End Sub

Yusuf44 üstada ait koddur.
A sütununa 10,20,30 gibi yazarsam hata vermiyor.
Ancak 103,30 gibi rakam yazdığım zaman ya da 1145,96 gibi yazdığım zaman

Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & Cells(i, "A")

kısmı hata veriyor. Bu güne kadar sıkıntısız kullanıyordum. Düzeltme şansı var ise yardımcı olabilir misiniz?
Bu

 

[PLİNT]

Merhaba
Toplanan rakamlar formül içinde biriktiğine göre aşağıdaki gibi virgülü; noktaya çeviren çözüm; hatayı engelleyebilir.

[SIZE="2"]Cells(i, "E").Formula = "=" & [COLOR="Red"]Replace(Cells(i, "A"), ",", ".")[/COLOR]
    Else
Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & [COLOR="Red"]Replace(Cells(i, "A"), ",", ".")[/COLOR]
    End If
[/SIZE]

 

[sirkülasyon]

Sayın Plint
Ellerine Sağlık. Teşekkür Ederim