just test for null (or maybe "") before adding, if it fails the
test just more on.

dim total
dim row
dim col

col = 2


For Row = 1 to 10

if not isNull(cells(row,col).value) then
total = total + cells(row,col).value
end if

next row