Add multiple sets of numbers between blank cells

[on top]

My spreadsheet is multiple rows and columns of sales data with two blank rows between salespeople. Ex:

$100 ABC Inc. John #101
$150 XYZ Inc. John #101


$200 Golf Inc. Sue #102
$150 BBall Inc. Sue #102

What I need is this:

$100 ABC Inc. John #101
$150 XYZ Inc. John #101
$250

$200 Golf Inc. Sue #102
$150 BBall Inc. Sue #102
$350

Where the sum of each salesperson's sales figures is shown and formatted. I've been doing this manually. I'm having difficulty figuring out how to do this using VBA. I can do the formatting, and conceptually I see what needs to be done, I don't have enough experience/knowledge of VBA to make it happen.