Attribute VB_Name = "Macros4307"
Sub Macro1()
Attribute Macro1.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.MyTables"
'
' Macro1 Macro
'
'first recorded macro

    Selection.MoveDown Unit:=wdLine, Count:=5
    Selection.Tables(1).Style = "Light Shading - Accent 4"
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.SelectRow
    Selection.Font.Bold = wdToggle
    Selection.Font.Bold = wdToggle
End Sub

Sub Macro2()
'
' Macro2 Macro
'
' second recorded macro

    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.Tables(1).Style = "Light Shading - Accent 1"
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.MoveUp Unit:=wdLine, Count:=4
    Selection.InsertRowsAbove 1
    Selection.Cells.Merge
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText Text:="Year Ended December 31,"
End Sub

Sub CleanUpTables()

' macro written in lieu of above recorded macros to reformat all tables at once

Dim atb As Table

For Each atb In ActiveDocument.Tables
    atb.AutoFitBehavior (wdAutoFitWindow)
    If atb.Columns.Count = 5 Then
        With atb
            .Style = "Light Shading - Accent 4"
            .Rows(3).Range.Font.Bold = True
        End With
    Else
        With atb
            .Style = "Light Shading - Accent 1"
            .Rows.Add BeforeRow:=.Rows(1)
            With .Rows(1)
            .Cells.Merge
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Range.Text = "Year ended December 31,"
            End With
        End With
    End If
Next atb

End Sub