السلام عليكم
معذرة لم انتبه للملف المرفق في البداية
علي اي حال جرب هذه المحاولة
Sub saad()
Sheets("report").Range("b5:l1000").Clear
Sheets("data").Range("k7:k" & Sheets("data").Range("k" & Rows.Count).End(xlUp).Row).Copy
Sheets("report").Range("b5").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("data").Range("l8:l" & Sheets("data").Range("l" & Rows.Count).End(xlUp).Row).Copy
Sheets("report").Range("c5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
Application.CutCopyMode = False
r = Sheets("report").Range("b" & Rows.Count).End(xlUp).Row
c = Sheets("report").Range("iv5").End(xlToLeft).Column
Sheets("report").Range(Cells(6, 3), Cells(r, c)).FormulaR1C1 = "=SUMIFS(saad!C4,saad!C1,RC2,saad!C2,R5C)"
Sheets("report").Range(Cells(6, 3), Cells(r, c)) = Sheets("report").Range(Cells(6, 3), Cells(r, c)).Value
End Sub
تحياتي
1++.rar