Sub GetData()
    With ActiveWorkbook.Connections("s-epm ErrorReports GetSummarizedInternalErrors").OLEDBConnection
        .CommandText = "EXECUTE dbo.GetSummarizedInternalErrorsReport '" & Range("A2").Value & "'"
    End With
    ActiveWorkbook.Connections("s-epm ErrorReports GetSummarizedInternalErrors").Refresh
    
     With ActiveWorkbook.Connections("s-epm ErrorReports GetSummarizedClientsErrors").OLEDBConnection
        .CommandText = "EXECUTE dbo.GetSummarizedClientsErrorsReport '" & Range("A2").Value & "'"
    End With
    ActiveWorkbook.Connections("s-epm ErrorReports GetSummarizedClientsErrors").Refresh

End Sub