Есть ли способ иметь диапазон для автоматической сортировки, когда значения добавляются в этот диапазон?

Question

Я пытаюсь создать код для сортировки диапазона в column A после добавления новой информации.Я пробовал этот код, но он не работает должным образом.

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

Answer 1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim lastrow As Long
   If Target.Column = 1 Then


       lastrow = Cells(Rows.Count, 1).End(xlUp).ROW
       Range("A2:A15" & lastrow).Sort key1:=Range("A2:A15" & lastrow), _
                                  Order1:=xlAscending, Header:=xlNo
   End If
End Sub