السلام عليكم
بعد إذن الاستاذ الفاضل ابو ابراهيم
هذا الكود وبه تعديل طفيف
Sub Abu_Ahmed_Trheel()
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
For T = 6 To [A10000].End(xlUp).Row
If Cells(T, 3) = Sheets(i).Name Then
Sheets(i).Unprotect
Range("A" & T & ":H" & T).Copy
Sheets(i).Range("A" & Sheets(i).[A1000].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End If
Next
Next
Application.CutCopyMode = False
End Sub