الحمد لله توصلت لتبسيط الكود بالحلقات التكرارية
For r = 1 To 100
If Cells(r, 21) = "" Then Exit For
mhname = Cells(r, 21).Value
ok.Activate
Worksheets(mhname).Select
Range("c3:j12").Copy
ThisWorkbook.Activate
Sheets("æÑÞÉ1").Select
Cells(r * 13, 2).PasteSpecial xlPasteAllMergingConditionalFormats
Next