Macro insertar filas en blanco

Buenas tardes a todos!
Que tal, en espera de su ayuda tengo el siguiente problema, ya tengo una macro que me hace un reporte por cada sucursal que se tiene en el país, pero no logro separarlo por bloques y me inserta dos filas en blanco arriba después de que encuentre un dato. Y donde inserto la segunda linea me ponga el nombre ahi, y en toda esa fila me realize la sumatoria de los campos. Creo que con el ejemplo quedara mas claro en la hoja1 es como tengo mi dato, y en la hoja2 como deseo que quede, espero me puedan apoyar ya que es el ultimo dato que me hace falta para terminar.
Tengo este código para ingresar fila en blanco, pero la condición es hasta que encuentre fila en blanco y yo la necesito al revez hasta que encuentre datos..

Sub OrdenarVendedor()
Dim lngRow As Long, intRow As Long
Application.ScreenUpdating = False
Range("A1").Select
Range("A1").CurrentRegion.Sort _
Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
lngRow = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = lngRow To 2 Step -1
If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _
Rows(intRow).Resize(2).Insert
Next intRow
Application.ScreenUpdating = True
End Sub

https://www.dropbox.com/s/t5j3zp8rlvg37t2/EJEMPLO.xlsx

Gracias por su ayuda.