Code to sum cell values using a loop method

[qussai]

Hi,

I want to write a code but I get a lot of errors as I am not really familiar with syntax

I wonder if someone can convert the following:

sub myloop()

Dim x
Dim y
Dim Total
Dim Count

count = 1
total = 0

Do until Cells(count,0) = ""

x = cells(count,0)
y = cells(count + 1, 0)


if x = y then
Total = total + cell(count,3)
count = count + 1

else

total = total + cell(count,2)
cell(count,10) = total
count = count + 1
total = 0


Loop

End sub