Лист1.Range("B2:B1048576").FormulaLocal = Range("B2:B1048576").FormulaLocal
Лист1.Range("N2:O1048576").FormulaLocal = Range("N2:O1048576").FormulaLocal

Private Sub Workbook_Open()
''' Подключение к БД и запись в ячейку параметр для проверки
End Sub

Sub GetConnectionCommand()
Dim ConnectionString As String
Dim ObjectConnection As New ADODB.Connection
Dim userID As String
userID = "User"

Dim rst As ADODB.Recordset
ConnectionString = "Provider=SQLOLEDB;Password=Пароль;Persist Security Info=True;User ID=" + User+ ";Initial Catalog=power_bi_mars;Data Source=192.168.101.1"
ObjectConnection.ConnectionString = ConnectionString
ObjectConnection.Open

Dim Command As New ADODB.Command

Dim comparam1 As ADODB.Parameter
Set comparam1 = Command.CreateParameter("User", adVarChar, adParamInput, 12, userID)

Command.Parameters.Append comparam1

Command.ActiveConnection = ObjectConnection
Command.CommandType = adCmdStoredProc
Command.CommandText = "MAIN"
Command.NamedParameters = True

Set rst = Command.Execute

Лист1.Range("A2, AJ2").CopyFromRecordset rst

rst.Close

Set comparam1 = Nothing
Set Command = Nothing