ALTER procedure [dbo].[upPrice] (@id int, @newPrice int) AS
SET NOCOUNT ON;
/* Тут происходят какие то манипуляции с данными и в результате получаем таблицу*/
 
SELECT * FROM Table
SET NOCOUNT OFF;

Sub SalaryReport()

Dim id
Dim newPrice
id = Range("A1")
newPrice = Range("B1")

Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Test;Data Source=Slava-PC"
cn.Open

Dim command As ADODB.command
Set command = New ADODB.command

Dim rst As New ADODB.Recordset

command.ActiveConnection = cn
command.CommandText = "[dbo].[upPrice]"
command.CommandType = adCmdStoredProc

command.Parameters.Append command.CreateParameter("id", adInteger, adParamInput, 60, Range("A1"))
command.Parameters.Append command.CreateParameter("newPricet", adInteger, adParamInput, 60, Range("B1"))

 With rst
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Open command
End With

Set rst = command.Execute

CountColumn = rst.Fields.Count
    For i = 0 To CountColumn - 1
        Range("A2").Offset(0, i).Value = rst.Fields(i).Name
        WidthColumn = Len(rst.Fields(i).Name) + 2
        If WidthColumn > 20 Then
            WidthColumn = 20
        ElseIf WidthColumn < 6 Then
            WidthColumn = 10
        End If
        Rows(1).WrapText = True
        Rows(1).HorizontalAlignment = xlCenter
        Rows(1).VerticalAlignment = xlCenter
        Rows(1).Interior.ColorIndex = 15
        Columns(i + 1).ColumnWidth = WidthColumn
        Next
    For iCols = 0 To rst.Fields.Count - 1
    Cells(2, iCols + 1).Value = rst.Fields(iCols).Name
    Next
    If rst.EOF Then MsgBox "null"
    Range("A3").CopyFromRecordset rst



    
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
Set command = Nothing
End Sub

USE [Test]
GO
/****** Object:  StoredProcedure [dbo].[upSalaryTableTest]    Script Date: 16.07.2019 22:45:22 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER procedure [dbo].[upSalaryTableTest] (@id int, @newSalaryPercent int) AS

BEGIN
CREATE TABLE #empTemp(
	[ID] [int] NOT NULL,
	[DEPARTMENT_ID] [int] NULL,
	[CHIEF_ID] [int] NULL,
	[NAME] [varchar](100) NOT NULL,
	[SALARY] [int] NOT NULL,)

INSERT INTO #empTemp 
SELECT * FROM EMPLOYEE 

DECLARE @maxSalary int;
DECLARE @chiefSalary int;
update EMPLOYEE set SALARY =  (EMPLOYEE.SALARY / 100) * (100 + @newSalaryPercent) where (DEPARTMENT_ID = @id AND CHIEF_ID != 1);
Select @maxSalary = (SELECT max(salary) FROM employee where DEPARTMENT_ID = @id)
Select @chiefSalary = (select SALARY From EMPLOYEE where DEPARTMENT_ID = @id and CHIEF_ID = 1)
IF @maxSalary > @chiefSalary
update EMPLOYEE set SALARY = @maxSalary where (DEPARTMENT_ID = @id AND CHIEF_ID = 1);


SELECT * FROM #empTemp 
SELECT * FROM EMPLOYEE 
END;

Exec upSalaryTableTest 1, 2

ALTER PROCEDURE [dbo].[PrintTable]	
AS
BEGIN
	Select * From EMPLOYEE
END;
GO