بعد إذن الاستاذ عبدالله المجرب (غير اسمه مقابيل رمضان )
جرب هذا التعديل من قبل العبد الفقير الى الله
Sub ragab_3()
[c2:p21].ClearContents
For i = 2 To 21
For Each cl In [c1:p1]
For Each cel In Sheet3.[E5:E17]
If Cells(i, 1) = cel And cl = cel.Offset(0, -1) Then
Cells(i, cl.Column) = Cells(i, cl.Column) + cel.Offset(0, 1)
End If
Next
Next
Next
End Sub