Thread: VBA looping with matrix of data over multiple sheets

I am fairly new to the VB programming of Excel and have to perform a specific process repeatedly; and I can't develop a simple solution.

Right now I have a workbook with 41 sheets; One of them is a summary that totals all the requests from the other pages. I currently have code that checks the Total requests of a particular variant / market field and then numbers the rows of Column A sequentially from 1 until it equals the Total requests. Along with this I would also like to query every sheet and if the value in a specific cell is > 0 then return the requestors name equal the the number of units requested in column "E". Below is an example of the code that I have that works but is extremely tedious as well:

Place = RowCount - NumRet
                
                If MasterRowCount = 1 Then
                    val = ActiveWorkbook.Worksheets("Xyz").Cells(9, 3).Value
                    If val > 0 Then
                        Do
                            DeptCounter = DeptCounter + 1
                            Cells((Place), "E") = "Xyz"
                            Place = Place + 1
                        Loop Until DeptCounter = val
                    End If
                    DeptCounter = 0
                    val = ActiveWorkbook.Worksheets("xYZ").Cells(9, 3).Value
                    If val > 0 Then
                        Do
                            DeptCounter = DeptCounter + 1
                            Cells((Place), "E") = "xYZ"
                            Place = Place + 1
                        Loop Until DeptCounter = val
                    End If
                End If

Any help will be greatly appreciated.