Add multiple sets of numbers between blank cells

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.

Have you tried the Subtotal function found in the DATA menu? It allows you to insert sums, counts, etc at change in any field you want....