Replace loops with arrays

Hello everyone
I have a code that has nested loops for columns and rows in sheet1 and for each cell check if it is greater than zero .. if the value is greater than a zero so the related data to be transferred
In sheet1 I have fixed row (1) and fixed column (1) and in between the cells to be checked
For example the cell A2 has value greater than zero so the related data would be:
-----------------
B1 in Sheet1 >> Column C in Sheet2
A2 in Sheet1 >> Column I in Sheet2
The cell itself in B2 >> Column L in Sheet2
As for Sales ID in Sheet2 Would be sequence for Customers

You can run the working code to see the expected results

Please Login or Register  to view this content.

Hope it is clear

This should do ir

Please Login or Register  to view this content.

Mr. Nilem and Mr. Mike
Both solutions are working like charm. You are Great people
Thanks a lot for this incredible help
Best Regards