Excel Balance Sheet Generate Table via VBA/Macros

This macro assumes that you have a second sheet ("Consolidated Balance Sheet") that already contains the Consolidated Balance Sheet table starting in Cell A1 with no formulae or numbers, only the text. Before trying this macro, change the sheet name (in red) to suit your needs.

Sub CreateConsolidatedSheet()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As Worksheet, rng As Range
    Set srcWS = Sheets("Sheet1")
    Set desWS = Sheets("Consolidated Balance Sheet")
    With srcWS
        desWS.Range("B6") = WorksheetFunction.Sum(.Range("C4:C7"))
        desWS.Range("B7") = WorksheetFunction.Sum(.Range("C8:C10"))
        desWS.Range("B8") = .Range("C11")
        desWS.Range("B9") = .Range("C14")
        desWS.Range("B10") = WorksheetFunction.Sum(.Range("C12:C13"))
        desWS.Range("B11") = WorksheetFunction.Sum(.Range("F7:F11"))
        desWS.Range("B14") = .Range("C16")
        desWS.Range("B15") = .Range("C16")
        desWS.Range("B17") = .Range("C15")
        desWS.Range("B19") = WorksheetFunction.Sum(desWS.Range("B11,B14,B17"))
    End With
    For Each rng In desWS.Range("B6:B19")
        If rng <> "" Then
            rng.Offset(, 1) = rng / 7.8
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

You are very welcome.