Yet another Excel formatter

excel_cfm_latency_table_format.vba

Sub cfm_latency_report()
'
' cfm_latency_report Macro
'

'
    Range("A1").CurrentRegion.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight11"
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    ActiveWindow.LargeScroll ToRight:=1
    Columns("H:H").EntireColumn.AutoFit
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A2").Select
End Sub