جرب ان تغير هذا الجزء من الكود الى ما يلي:
Rw2 = Lrw: Rw3 = Lrw + 1
sh2.Cells(Rw3, 5).Formula = "=IF(SUM(N"" & Rw1 & "":N"" & Rw2 & "")=0,"""",SUM(N"" & Rw1 & "":N"" & Rw2 & ""))"
sh2.Cells(Rw3, 5).Select
Selection.AutoFill Destination:=Range("N" & Rw3 & ":" & "W" & Rw3), Type:=xlFillDefault
sh2.Range("N" & Rw3 & ":" & "W" & Rw3).Selectبل