インポートするVBAコード複数の列のフロンを別のシートにコピー

Question

1つのExcelスプレッドシートからいくつかの列を別のシートにインポートしようとしています。以下は私がこのフォーラムで見つけたコードで、うまくいきます。私が直面している唯一の問題は、1つの列だけをインポートすることです。

誰かが複数の列をインポートできるようにコードを編集する方法を教えてください。

Importing single Column 
Sub CopyColumnToWorkbook() 
Dim sourceColumn As Range, targetColumn As Range 

Set sourceColumn = Workbooks("Source.xlsm").Worksheets("2017"). Columns(“A”) 
Set targetColumn = Workbooks("Target.xlsm").Worksheets("Field WH Projections").Columns(“A”) 

sourceColumn.Copy Destination:=targetColumn 
End 

Answer 1

更新

Sub ColumnCopy() 
Dim Source_Sheet As Worksheet, Target_Sheet As Worksheet 
Dim CLM As Integer, LastColumn As Integer 

Set Source_Sheet = Workbooks("Source.xlsm").Worksheets("2017") 
Set Target_Sheet = Workbooks("Target.xlsm").Worksheets("Field WH Projections") 

LastColumn = Source_Sheet.Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column 

For CLM = 1 To LastColumn 

'Columns 1 or (A)... 2 (B).... F and H. 
If CLM = 1 Or CLM = 2 Or CLM = 6 Or CLM = 8 Then 

Source_Sheet.Columns(CLM).Copy Destination:=Target_Sheet.Columns(CLM) 

End If 

Next CLM 

End Sub