MS Excel macro to copy only specific columns

[Azrin]

Hello everyone.

I need your help in building a macro that would allows me to copy specific colums from one workbook to another workbook.

The first worksheet consists of Column A until Column DJ. A lots, rite.

Of all of these columns, I just want to copy Column C, D, & AD until DH.

The columns will be copied to a new worksheet in a different workbook.

Hence, is there any macro that able to help me accomplish this?

Thanks.

 

[Azrin]

Plus, I only want to copy the column begining from cells C6 until the last row of data in that column.
This also applied to the rest of the columns.

 

[John Davis]

Does this help?

Sub azrin()

Dim lr As Long

FirstWorkbook.Activate

lr = Cells(Rows.Count, 3).End(xlUp).Row

Range("C6:D" & lr).Copy Anotherworkbook.Sheets("Sheet1").Range("C6")
Range("AD6:DH" & lr).Copy Anotherworkbook.Sheets("Sheet1").Range("AD6")


End Sub

 

[Azrin]

Hi John.

Thank you so much for the solution.

Yes, it works great. All I need to change is put the workbook name inside Workbooks(firstworkbook). Activate

One more request if you don't mind, I forgot to mention that the first 2 columns (C & D) contain VLookup formulae.

Hence, everytime I run the macro to copy them, #REF! error appeared, can you show how to copy only cell values from the macro that you have provided?

Once again, thank you.

 

[John Davis]

You're welcome. Glad to hear we are on the right track:

Maybe:

Sub azrin()

Dim lr As Long
Dim x As Long

Workbooks(FirstWorkbook).Activate

lr = Cells(Rows.Count, 3).End(xlUp).Row

x = Range("C6:C" & lr).Rows.Count

Anotherworkbook.Sheets("Sheet1").Range("C6").Resize(x, 2).Value = Range("C6:D" & lr).Value
Range("AD6:DH" & lr).Copy Anotherworkbook.Sheets("Sheet1").Range("AD6")


End Sub

 

[Azrin]

It Works!!! Thank you so much, John!

Hi John.

Thank you so much for the solution.
The code works wonder.

You are my hero and saviour!

Hope you have lots of great days and to other Excel's user who facing similar problem like me, I do hope that the solution provided by John, help you as well.

 

[John Davis]

You're welcome. Glad too help out and thanks for the feedback.