This is fine:
provided you change all calls to
into
as in original array you had 2 columns, and now there are 4 of them.
the second part:
it shall work (some minor changes may be needed).
My suggestions for improvement are:
is not needed. (it is just how your actions are registered by macro recorder. Delete this line
this:
I'd move to the end of the code in the loop, but before loop I'd add
or any other row number (may be 2, if above copied data you want some header line) you want first data to be copied
this 2 lines
Range("C17:I22").Select
Selection.Copy
I'd change into
this I'd move before the loop (there is a big chance it can be ommitted too).
and this 2 lines
could be replaced with:
I could not test it, because I'm writing it on a tablet without macro capabilities, but the above changes shall work :-)
PS. As a good practice, I'd add wiersz variable definition to declarations:
Bookmarks