VBA to select not hidden cells and copy to another workbook

Help Something Else
1

Anyone knows how to create VBA code to select cells from this (IRL color doesn’t exist)

image
image1545×474 19.7 KB

to this?

image
image800×98 4.67 KB

The nearest i can get is only these but the two highlighted lines doesn’t work for merged cells.

image
image700×167 8.84 KB

Here’s attached the test data.
Test Data.xlsx (16.0 KB)

Sheet1 is input
Sheet2 is expected output (should be in new workbook)