range("Таблица1[Столбец3]").Column

range("Таблица1[Столбец3]").Cells(3).Value

If StrComp(Cells(i, "E").Value,Cells(i, "K").Value,1) = 0 Then
    Cells(i, "L").Value = Cells(i, "F").Value
End If

Application.Workbooks("ТЕСТ.xlsm").Closе

objMsg.HTMLBody = "Добрый день<br>Все готово!<br><br>" & objMsg.HTMLBody

Sub Update_1() 
    Dim Connection As WorkbookConnection
    Dim rng_Refresh As Range
    Dim IsBG_Refresh as boolean
     
    Set rng_Refresh = Range("Update_1[Update_1]")
    For Each Connection In ThisWorkbook.Connections
        If Not rng_Refresh.Find(Connection.Name) Is Nothing Then
            'MsgBox rng_Refresh.Find(Connection.Name).Address
            'запоминаем значение обновления в фоне для запроса
            IsBG_Refresh = Connection.OLEDBConnection.BackgroundQuery
            'выставляем принудительно ждать завершения запроса
            Connection.OLEDBConnection.BackgroundQuery = False
            'обновляем запрос
            Connection.Refresh
             'возвращаем обновление в фоне в первоначальное состояние
             Connection.OLEDBConnection.BackgroundQuery = IsBG_Refresh
        End If
    Next Connection
End Sub

Intersect(Range("G49,G55,G62,G75,G84,G108"), Target)