Dim sum As Integer
	sum = 0
	For Each cel In Range(Cells(1, 1), Cells(10, 1))
		If (cel.Value = 0) Then
			cel.Value = ""
		End If
	Next cel

	For Each cel In Range(Cells(1, 1), Cells(10, 1))
		If (cel.Value > 0) Then
			sum = sum + cel.Value
		End If
	Next cel
	Range(Cells(1, 1), Cells(11, 1)).Cells(11, 1) = sum
End Sub