Sub CopyColumnToWorkbook()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Workbooks("Source.xlsm").Worksheets(1).Columns("A")
Set targetColumn = Workbooks("Target.xlsm").Worksheets(1).Columns("A")
sourceColumn.Copy Destination:=targetColumn
EndSub
Sub Button1_Click()
Dim x As Worksheet, y As Worksheet, LastRow&
'Change the link to where you saved your files
Workbooks.Open ("C:\Users\kmahraz\Desktop\New folder\Source.xlsm")
Set x = Workbooks("Source.xlsm").Worksheets("Sheet1")
Set y = ThisWorkbook.Worksheets("Sheet1")
LastRow = x.Cells.SpecialCells(xlCellTypeLastCell).Row
x.Range("A1:A" & LastRow).Copy y.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
x.Range("B1:B" & LastRow).Copy y.Cells(Rows.Count, "E").End(xlUp).Offset(1, 0)
x.Range("H1:H" & LastRow).Copy y.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0)
x.Range("I1:I" & LastRow).Copy y.Cells(Rows.Count, "I").End(xlUp).Offset(1, 0)
Application.CutCopyMode = False
End Sub
ThisWorkbook.Worksheets("Sheet1").Range("L:M").Copy
wbDest.Worksheets("Sheet1").Range("L:M").Insert
ThisWorkbook.Worksheets("Sheet2").Range("Y:Z").Copy
wbDest.Worksheets("Sheet1").Range("Y:Z").Insert
..........
sourceColumn.Copy Destination:=targetColumn
targetColumn.Replace what:="[*]", replacement:=""
Application.CutCopyMode = False
Application.ScreenUpdating = True
activeworkbook.save
activeworkbook.close
workbooks("Source.xlsm").close
application.quit