Option Explicit

Public Sub FormatTADReport()

'Declare Worksheet
Dim wsTempTest As Worksheet
Set wsTempTest = Worksheets(ActiveSheet.Name)

'Insert 3 Rows for Header
Dim tmpRow As Long
For tmpRow = 1 To 3
    wsTempTest.Rows(1).Insert
Next tmpRow

'Format Report Title Row 1
'wsTempTest.Cells(6, 2) is using the parameter value AFTER the 3 rows are inserted above.
With wsTempTest.Range(wsTempTest.Cells(1, 1 + ColSpace), wsTempTest.Cells(1, iLC))
    .MergeCells = True
    .Font.Bold = True
    .Font.Size = 24
    .Value = arrTAD(t, colDescription) & " through " & Format(wsTempTest.Cells(6, 2), "MMMM yyyy")
    .HorizontalAlignment = xlCenter
    .RowHeight = 28
End With

'Format Company Name Row 2
'Company Name is hard coded below
With wsTempTest.Range(wsTempTest.Cells(2, 1 + ColSpace), wsTempTest.Cells(2, iLC))
    .MergeCells = True
    .Font.Bold = True
    .Font.Size = 18
    .Value = "TAD Company, LLC"
    .HorizontalAlignment = xlCenter
    .RowHeight = 24
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).Weight = xlThin
End With

'Format Blank Row 3
With wsTempTest.Range(wsTempTest.Cells(3, 1 + ColSpace), wsTempTest.Cells(3, iLC))
    .MergeCells = True
    .Font.Bold = True
    .Font.Size = 14
    .Value = ""
    .HorizontalAlignment = xlCenter
    .RowHeight = 7.5
End With

End Sub