Copy multiple rows and columns from a workook (Transpose the rows ans multiply by -1)

Dear Colleagues,

I have workbook with many sheets. For each sheet, many rows and columns, I need to copy all rows and columns and transpose them then past in a new workbook. The transposed values are to be multiplied by -1. Then I need to copy and transpose the original cells and past them under the negative values. This means that I have symmetrical values (from negative to positive).

I used the following code and it works well for all sheets except sheet1, attached Book1. What happened that it multiplies the cells by -1 and misses the last row, sheet Ouputs1 in Book2. I do not know why and I tried my best. I wondering if you could help me sorting this out?

Please Login or Register  to view this content.

Thanks for your time.

Nawr

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between

Please Login or Register  to view this content.

tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you today. Please read all Forum Rules and comply in the future.)