السلام عليكم
اخي ايهاب
انا من المدينة المنورة ولست من الأحساء
في المرفق
يجب التخلص من دمج الخلايا لقائمة الإجمالي
اختار الشهر ثم اضغط على زر الطابعة
اضفنا هذا الجزء للكود
ER = ActiveSheet.UsedRange.Rows.Count
CC = ((x1 - 1) * 5) + x1 * 3 + 1 + 7
Dim RN As Range
Set RN = Range(Cells(5, CC), Cells(ER, CC))
RN.UnMerge
RN.AutoFilter
RN.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, _
Criteria2:="<>"
آمل التجربة واخباري بالنتيجة
ehab.rar