Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range(Cells(2, 2), Cells(2, 2).End(xlDown).End(xlToRight))) Is Nothing Then Exit Sub
  Dim cell As Range
  If aCon.State = adStateClosed Then Connect
  For Each cell In Intersect(Target, Range(Cells(2, 2), Cells(2, 2).End(xlDown).End(xlToRight)))
    With aCmd(cell.Column - 1)
      .Parameters(0) = cell(, -cell.Column + 2)
      .Parameters(1) = cell
      .Execute , , adExecuteNoRecords
    End With
  Next
End Sub