Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim PrimaryKey As Integer 'поле ,содержащее ключ из таблицы аксесса
    Dim FieldTableHeader As String ' заголовок поля таблицы экселя, должен быть один и тот же для аксесса
    Dim lastRow As String
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row ' ищет координаты последней строки последнего поля C
    Set KeyCells = Range("A1:" & "C" & lastRow)  'определяем тыкальный диапазон ))) таблица начинается с Координат А
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then ' если тыкнули вне диапазона, то ничего не происходит

If IsNull(Intersect(Columns(1), Rows(Target.Row))) Then
MsgBox "Отсутствует значение ключевого поля для обновления в MS access " 'выбираем значение пересечения текущей ячейки текущей строки и первого столбца
 Else
 PrimaryKey = Intersect(Columns(1), Rows(Target.Row)) ' присваиваем значение переменной ключевого поля
 FieldTableHeader = Cells(1, Target.Column) 'находим название столбца таблицы выделенной ячейки
 
 StrSQL = "UPDATE ваша_таблица SET [" & FieldTableHeader & "] = " & Target & " WHERE ваша_таблица.[ваше_ключевое_поле]= " & PrimaryKey 'собираем запрос
 
Dim db As Database
Set db = OpenDatabase("C:\путь_к_базе\ваша_база.mdb") 'открываем базу mdb
db.Execute (StrSQL) 'выполняем запрос
db.Close
Set db = Nothing

 End If
   End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim PrimaryKey As Integer 'поле ,содержащее ключ из таблицы аксесса
    Dim FieldTableHeader As String ' заголовок поля таблицы экселя, должен быть один и тот же для аксесса
    Dim lastRow As String
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row ' ищет координаты последней строки последнего поля C
    Set KeyCells = Range("A1:" & "C" & lastRow)  'определяем тыкальный диапазон ))) таблица начинается с Координат А
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then ' если тыкнули вне диапазона, то ничего не происходит

If IsNull(Intersect(Columns(1), Rows(Target.Row))) Then
MsgBox "Отсутствует значение ключевого поля для обновления в MS access " 'выбираем значение пересечения текущей ячейки текущей строки и первого столбца
 Else
 PrimaryKey = Intersect(Columns(1), Rows(Target.Row)) ' присваиваем значение переменной ключевого поля
 FieldTableHeader = Cells(1, Target.Column) 'находим название столбца таблицы выделенной ячейки
 If IsNull(Target) Then Target = " " 'если значение удаляется
 StrSQL = "UPDATE ваша_таблица SET [" & FieldTableHeader & "] = " & ("'" & Target & "'") & " WHERE ваша_таблица.[код_счетчик]= " & PrimaryKey 'собираем запрос
 
Dim db As Database
Set db = OpenDatabase("C:\Users\HOME\Desktop\тест.mdb") 'открываем базу mdb
db.Execute (StrSQL) 'выполняем запрос
db.Close
Set db = Nothing
  End If
   End If
    
End Sub