Copy ranges from one sheet to another with macro over cycles

Hello. I’m stuck on the problem when I need to copy ranges from one sheet to another, where source sheet has cache table (sql query) with columns vertically changing. I believe I should use cycles or loops, but can’t figure out how. Got an advice on another forum to use SUMPRODUCT formulas, but I need to enter data in the cells. Maybe I should combine to methods in macro? Look at the example file