Умножение в VBA возвращающих нули

Question

Я набрал следующий код в VBA, и он возвращает нули?

Я пытаюсь рассчитать доход в VBA.Salgspris - это цена, а AntalsoglteVare - количество проданных товаров.Я пытаюсь умножить их в VBA, используя следующий код, но он возвращает нули.

Sub Revenue()

Dim SalgsPris As Double 
Dim AntalSolgteVare As Integer
Dim Revenue As Double 

Range("a2").Activate

Do

SalgsPris = ActiveCell.Offset(0, 4).Value
AntalSoglteVare = ActiveCell.Offset(0, 5).Value

ActiveCell.Offset(0, 6) = SalgsPris * AntalSolgteVare

ActiveCell.Offset(1, 0).Activate

Loop Until ActiveCell = ""

End Sub