When I run the code below it rounds up to the next dollar. I forget what you have to do to make it exact. Ex. 1621.89 instead of 1622.
Sub payout() Dim bval As Long Dim myrange As Variant For Each myrange In Range("b6:b16") If myrange <> "" Then bval = myrange.Value + bval End If Next myrange MsgBox "total is " & bval End Sub