Whats wrong with this code Excel not printing

[dndaughtery]

I am using the following code but I'm generating a blank Excel worksheet

    Dim objExcel As Excel.Application
    Dim bkWorkbook As Excel.Workbook
    Dim shWorkSheet As Excel.Worksheet
    Set objExcel = New Excel.Application
    Set bkWorkbook = objExcel.Workbooks.Add
    Set shWorkSheet = bkWorkbook.ActiveSheet
With shWorkSheet
    .Rows("1:2").Select
    .Rows.Font.Bold = True
    .Rows.Font.Bold = True
    .Rows.Borders(xlDiagonalDown).LineStyle = xlNone
    .Rows.Borders(xlDiagonalUp).LineStyle = xlNone
    
    With .Rows.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With .Rows.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With .Rows.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With .Rows.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With .Rows.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With .Rows.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("F1:H1").Select
    With .Rows
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("I1:K1").Select
    With .Rows
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("L1:N1").Select
    With .Rows
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Rows("1:1").Select
    With .Rows.Font
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    ActiveCell.value = "Entity ID"
    Columns("A:A").Select
    Columns("A:A").EntireColumn.AutoFit
    Range("B1").Select
    ActiveCell.value = "Entity Name"
    Range("C1").Select
    ActiveCell.value = "Rtn Code"
    Range("D1").Select
    ActiveCell.value = "Rtn Level"
    Range("E1").Select
    ActiveCell.value = "Rtn Description"
    Range("F1:H1").Select
    ActiveCell.value = "Distribution of Revenue"
    Range("F1:H1").Select
    ActiveCell.value = "Distribution of Revenue (Before)"
    Range("I1:K1").Select
    ActiveCell.value = "Distribution of Revenue (After)"
    Range("L1:N1").Select
    ActiveCell.value = "Distribution of Revenue (Variance)"
    Range("F2").Select
    ActiveCell.value = "State"
    Range("G2").Select
    ActiveCell.value = "County"
    Range("H2").Select
    ActiveCell.value = "City"
    Range("I2").Select
    ActiveCell.value = "State"
    Range("J2").Select
    ActiveCell.value = "County"
    Range("K2").Select
    ActiveCell.value = "City"
    Range("L2").Select
    ActiveCell.value = "State"
    Range("M2").Select
    ActiveCell.value = "County"
    Range("N2").Select
    ActiveCell.value = "City"
    Rows("1:2").Select
    
End With