Copy temp hidden sheets

[YasserKhalil]

Hello everyone
I have in Sheet1 two tables(Columns A:G) and (Columns I:O)
Based on sheet1.range("Q2:Q9") I need to copy two temp (will be hidden) sheets ..

First:
-----
TempA sheet would be copied and the new copied sheet would be renamed by Q2 value which is here "Com 1" and add the suffix "A" and copy range("A" & range("R2").value &":C" & range("S2").value) .. A2:C22 (according to the columns R & S
As for cell A3 in the new copied sheet would be the value of Sheet1.range("Q2").value

Second:
-------
TempB sheet would be copied and the new copied sheet would be renamed by Q2 value which is here "Com 1" and add the suffix "B" and copy range("I" & range("R2").value &":K" & range("S2").value) .. I2:K22 (according to the columns R & S
As for cell A3 in the new copied sheet would be the value of Sheet1.range("Q2").value


and so on with all the cells in range("Q2:Q9"). That means that the new sheets that would be created would be 8 * 2 = 16 sheets
COM 1A
COM 1B
COM 2A
COM 2B
COM 3A
COM 3B
And etc ...

Another last point to put borders in the new sheets for range("A4:L" & LastRow)

Thanks advanced for help