如何使用VBA宏将特定列(第2列)从多张图纸(1，2，3...n)自动提取到一个主表中。你能在下面帮我吗，

Sub ExtractColumnToMasterSheet()
    Dim ws As Worksheet
    Dim masterSheet As Worksheet
    Dim lastRow As Long, masterLastRow As Long
    Dim i As Long
    
    ' 创建一个新的工作表作为主表
    Set masterSheet = Sheets.Add(After:=Sheets(Sheets.Count))
    masterSheet.Name = "MasterSheet"
    
    ' 设置主表的标题行
    masterSheet.Cells(1, 1).Value = "Extracted Data"
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过主表本身
        If ws.Name <> masterSheet.Name Then
            ' 获取当前工作表的第2列的最后一行
            lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
            
            ' 将数据复制到主表中
            For i = 1 To lastRow
                masterLastRow = masterSheet.Cells(masterSheet.Rows.Count, 1).End(xlUp).Row + 1
                masterSheet.Cells(masterLastRow, 1).Value = ws.Cells(i, 2).Value
            Next i
        End If
    Next ws
End Sub