Consoladate Group of columns

Hi Experts,

I need help on how to create a VBA to Consolidate a group of 3 columns with Row 1 value are identical and blank will remain unchanged.

For example:

• copy sheet1 sheet to backup original data

• merge AREA-1 (QTY/GROSS/NET) & AREA-4 (QTY/GROSS/NET)

• retain AREA-1 HEADER TITLE AND DELETE AREA-4 COLUMNS

note: Areas ranging from Area-1 to Area-50, Rows can be up to 1000.

EXCEL-MERGE.jpg