Private Sub avt_insert_Monthdata_1_Click()
    Dim cn As ADODB.Connection
    Dim str As String 'данные для передачи в sql
    Dim Datetime As String ' переменная даты
  
    Datetime = "01." & TextBox4m.Text & "." & TextBox4y.Text & " 00:00"
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Provider = "SQLOLEDB"
    cn.ConnectionString = "user id = sa; Password=;Data source = 192.168.1.1; initial catalog = se"
    cn.Open
    
    str = "exec sp_avt_insert_Monthdata " & "'" & Datetime & "'"
    cn.Execute (str)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
...
 Select Case Target.Address
        Case [A1].Address: [A9] = Target.Value
        'Case Range("B7:G65").Address: Sql_insert paramId, Datetime, Target.Value 
         Case Else: Sql_insert paramId, Datetime, Target.Value
   End Select 
...
END SUB