帮我写一段vba代码：以a列数据的大小做递增排序，其它列数据跟着变化

以下是 VBA 代码：

Sub sort_by_column_a()
  Dim lastRowAs Long
  Dim ws As Worksheet
  Set ws = ActiveSheet

  lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
  ws.Range("A1:Z" & lastRow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub

这段代码实现了以 A 列为关键字递增排序，其它列的数据随着变化的目