Automatic Invoice Creation

I need a macro to copy the data from the rows in Sheet3 into a specific place on "Sheet2" (Column "C" to E10 on Sheet2, D to E11, Q to E12, R to M12, S to T12, G to Y26, H to AF29, M to AF30, N to AF32, and lastly the current date to AC10) then rename the sheet to the Value of "E10" on that sheet then Copy that sheet to a new workbook and then clear the data on "Sheet2" so that only the information that was on the sheet before the data transfer is left and reset the name back to the original. My problem is i'm going to need this macro to do this for every row of data (Customer) that is in my list range of B10:R2114. So i'm looking for maybe a macro that loops an amount of times equal to the counts of data in the address range

=count(D10:D2114)

I have a macro that Creates a new workbook (which you name and place, which is good) and then copies a specified sheet over to the new workbook. I hope I wasn't to convoluted in what I'm trying to accomplish. heres the current macro I'm working with.

Sub copySht()
'declare the variables
Dim wb As Workbook
Dim ws As Worksheet
Dim fName
With Application
'prevent unnecessary error messages
.DisplayAlerts = False
'switch off screen updating to speed up code and prevent screen flickering
.ScreenUpdating = False