Copy paste Shaded Cells on New Sheet

Hello

This is probably easy but I am total noob in VBA and would appreciate your help.
I have a sheet1 (Visits) and sheet2 (Report List) in a workbook.
In Visits I keep some activities on rows. When an activity takes place I manually shade a specific cell in row 2, another one or two in row 3 and another 2-3 in row 4.
I would want to automatically copy shaded cells from all rows to one single row side by side at Report List. Only shaded cells, with contents (text).

Can you please help?

Thanks

DsF

PS. This is my first post here, so please be gentle to me

Thanks for your reply.
Attached my sample file, the first bunch of data marked in Yellow is copied from "Visits" to "Report List".
Want to automate this for all reports in "Visits".

Let me know if something is not clear enough.

Cheers

Hello

Can anyone help?

Thanks