ขอ code bva copy ระบุคอลัมภ์คะ

พี่ๆเพื่อนๆค่ะ ต้องการให้กอบปี้เฉพาะคอลัมภ์ acdghikpr เท่านั้น จากโค้ดนี้ ต้องปรับเป็นแบบไหนคะ

Sub consolidate()

Dim i As Long, mySourceWb As Workbook, mySourceLastRow

As Long

For i = 4 To 10

Set mySourceWb =

Workbooks.Open(sh_Consolidate.Range("AB" & i).Value)

mySourceLastRow = mySourceWb.Sheets(1).Range("A" &

Rows.Count).End(xlUp).Row

mySourceWb.Sheets(1).Range("A4:Z" &

mySourceLastRow).Copy

sh_Consolidate.Range("A" &

Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll

Application.CutCopyMode = False

mySourceWb.Close

Next i

MsgBox "Done"

End Sub