You can also get the desired result without macros. See attached. Compared to a macro solution, this has the advantage of automatically adjusting the outputs to reflect any changes in the inputs. To use, essentially all you do is copy the A2:Z23 block (or the A2:Z45 block) on the 'Desired Data' sheet and paste the formulae and/or formats there on the subsequent rows as often as needed.
Note: You could make the replication process simpler, by adding a formula (=OFFSET('Current Data'!$A$1,INT((ROW()-2)/22),MOD(ROW()-2,22)+COLUMN()-1)) to W2 and simply copying all of row 2 down as far as needed, but that would add unnecessary bulk to the saved workbook.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|