Copy Paste of column

[Legacy 450448]

vba code will be placed in a seperate file macro.xlsm
copy data from sample1.xls to sample2.xlsx
sheet name can be anything
all files are located in same place
vba code has to open the file and copy complete column B and column H and column J of sample1.xls and paste it to sample2.xlsx in column A, column B, Column C (column B of sample1.xls to column A of sample2.xls, column H of sample1.xls to column B of sample2.xlsx ,column J of sample1.xls to column C of sample2.xlsx)
save and close the file

 

[DanteAmor]

Try this

Sub Copy_Columns()
  Dim wb1 As Workbook, wb2 As Workbook, wPath As String
  '
  wPath = ThisWorkbook.Path & "\"
  Set wb1 = Workbooks.Open(wPath & "sample1.xls")
  Set wb2 = Workbooks.Open(wPath & "sample2.xlsx")
  wb1.Sheets(1).Range("B:B, H:H, J:J").Copy wb2.Sheets(1).Range("A1")
  wb1.Close False
  wb2.Close True
End Sub

 

[Legacy 450448]

Thnx Alot Sir for giving ur Precious Time and Great Support to this post
Have a Great Day Sir

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.