如何执行VBA代码从选定内容中仅抓取一些列，并将其粘贴到另一个工作表的末尾

Sub CopySelectedColumns()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim selectedColumns As Range
    Dim column As Range
    
    ' 获取源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 获取源数据范围
    Set sourceRange = sourceSheet.UsedRange
    
    ' 获取用户选择的列
    Set selectedColumns = Application.InputBox("请选择要复制的列", Type:=8)
    
    ' 将选定的列复制到目标工作表的末尾
    For Each column In selectedColumns.Columns
        ' 确定目标列的位置
        Set targetRange = targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Offset(0, 1)
        
        ' 将源列复制到目标列
        column.Copy targetRange
    Next column
End Sub