Macro to copy 3 adjacent columns at a time to a separate worksheet & sort by Company name

Hi all,

I hope you guys are able to help out with this macro. I have attached a workbook, where Sheet 1 contains the raw data. (In the real example there will be a variable no. of rows/columns of data).

'Company Code', 'RM' & 'Charge Amounts' form the set of 3 columns on the sheet that I need to copy & paste into Sheet 2. The macro should be able to copy the subsequent 3 columns also to Sheet 2 (Company Code (1) , RM (1), Charge Amounts (1)..so on. It should essentially follow a loop until there's no more columns left to be copied.

Once all data is collected on Sheet 2, a sort needs to occur by Company Code. I think I can handle this part.

But any help with copying in a loop will be appreciated.

Thanks,
Anya

Hi, thanks heaps for that. That worked for the columns present in the worksheet.But there can be any no. of columns with data that needs to be pasted in Sheet 2.

How can I account for that? Also The 3 columns on Sheet 2 should have the header row with column names i.e. Company Code, RM, Charge amount.

It would be great if I could make it work for more columns.

Thanks Patel45

Hi Patel45,

I figured that the Stop was a typo in the code!

Any chance of making it work for more columns in sets of 3,though? I almost feel guilty asking you help on this further after your prompt reply already...

Ta

Thanks heaps, guys. The code works perfectly now.

Cheers