I have 3 columns Column A Names, Column B Status and Column C Values.
In Column B i have 2 values Income and Outcome.
I've sorted this A and B Cells

Columns("A:C").Select
Selection.Sort Key1:=Range("A2"), _
Order1:=xlAscending, _
Key2:=Range("B2"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

I would like to add extra Rows and make Sum for each name create Incom
and Outcome Sums.
For example:
Column A # Column B # Column C #
##########################
Name # Status # Value #
##########################
David # Income # 10 #
##########################
David # Income # 30 #
##########################
David # Income Sum# 40 # <<- This Row Must Be added
##########################
David # Outcome # 50 #
##########################
David # Outcome # 20 #
##########################
David # Outcome Sum# 70 # <<- This Row Must Be added
##########################
Kate # Income # 30 #
##########################