Автосортировка данных с помощью VBA, проверенных списков данных и условного форматирования в Excel

Question

Я пытаюсь создать электронную таблицу в Excel с VBA, автоматически сортирующую введенные или измененные данные, но я хочу, чтобы пользователь мог выбирать только из выпадающих списков, и если определенные ячейки не совпадают, я хотел бычтобы они меняли цвета

У меня есть все данные, проверенные в списке, и условное форматирование, поэтому цвета меняются, но когда я добавляю функцию автосортировки с VBA, сортировки данных, но список проверенных данных не изменяются,(т. е. список проверенных данных A1 перемещается вниз (скажем, A10), но затем, когда я хочу изменить «исходный» список данных A1 обратно на «on» (который теперь называется A10), он проверяется с помощью проверки данных A10, и естьнет способа изменить его на исходный

Рисунок 1:

Рисунок 2:

и, как вы можете видеть из рисунка 1 против рисунка 2, проверка данных изменилась, и она отбросила мое условное форматирование (условное форматированиепроблема, вероятно, будет решена так же, как я бы решил проблему с проверкой данных, но все равно решил упомянуть об этом)

Вот мой код VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Range("A11").Sort Key1:=Range("A12"), _
      Order1:=xlAscending, Header:=xlYes, _
      OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom
End Sub

Я не уверенчто я могу сделать, чтобы исправить это

любая помощь будет оценена

Спасибо,