Sub Macro2()
'
' Macro2 Macro
'

'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Password=xdr5%RDX;Persist Security Info=True;User ID=OptimalAdmin;Data Source=OTVSQL02;Use Procedure for Pre" _
        , _
        "pare=1;Auto Translate=True;Packet Size=4096;Workstation ID=VCHARNY-G2;Use Encryption for Data=False;Tag with column collation wh" _
        , "en possible=False;Initial Catalog=PerformanceResults"), Destination:=Range( _
        "$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array( _
        """PerformanceResults"".""dbo"".""BenchmarkTestsSummary""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Users\VCharny\Documents\My Data Sources\OTVSQL02 PerformanceResults BenchmarkTestsSummary1.odc"
        .ListObject.DisplayName = _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1"
        .Refresh BackgroundQuery:=False
    End With

ActiveSheet.ListObjects( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1").Range.AutoFilter _
        Field:=3, Criteria1:="QAPerformanceVertica"

 Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveSheet.ListObjects( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1").Range.AutoFilter _
        Field:=1, Criteria1:=Array("7.4.4247.0", "7.4.4280.0", "7.4.4340.0"), _
        Operator:=xlFilterValues

ActiveWindow.SmallScroll ToRight:=3
    Range("H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S").Select
    Range( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1[[#Headers],[Extract data:     Analyze_Statistics]]" _
        ).Activate