excel-将表1中的A列移动到表2中的B列，并对数据进行排序

嗨，我之前问过一个类似的问题，但这是我遇到的另一个问题。我使用的是Excel VBA，我有一个从一张表复制到另一张表的数据列表。我的目标是将A列从表1移动到表2中的B列，并对数据进行排序。例如：表1中的A列包含（H、H、H、H/R、H/R/I、H、H/R/I、H/R/I、H/R/I、H/R、H、H）从A列中的第2行开始，我希望它像这样排列在表2的B列中（H、H、H、H、H、H、H、H、H、H、H/R、H/R/I、H/R/I）。以下是陷阱：I want it start on Row 3.如果可以的话，请帮忙。这是到目前为止我的代码，但正如我所说，我需要它从第1页A列的第2行开始，到第2页B列的第3行。

Private Sub Button1_Click()

   'Copy column "A" from Sheet1 into Column "B" of Sheet2 (Unsorted values)

     Sheets("Sheet1").Columns("A:A").Copy Destination:=Sheets("Sheet2").Range("B:B")

    'Sort the column 'B' using excel function "Sort"
       ThisWorkbook.Sheets("Sheet2").Columns("B:B").Sort 
       key1:=ThisWorkbook.Sheets("Sheet2").Range("B1"), _
       order1:=xlAscending, Header:=xlNo

End Sub