Bu kodlamanı nasıl sade yapa bilirim?NewBook.Sheets(1).Range("D7") = "=sum(c7*c4)"
NewBook.Sheets(1).Range("D8") = "=sum(c8*c4)"NewBook.Sheets(1).Range("D29") = "=sum(c29*c4)"
NewBook.Sheets(1).Range("D9") = "=sum(c9*c4)"
NewBook.Sheets(1).Range("D10") = "=sum(c10*c4)"
NewBook.Sheets(1).Range("D11") = "=sum(c11*c4)"
NewBook.Sheets(1).Range("D12") = "=sum(c12*c4)"
NewBook.Sheets(1).Range("D13") = "=sum(c13*c4)"
NewBook.Sheets(1).Range("D14") = "=sum(c14*c4)"
NewBook.Sheets(1).Range("D15") = "=sum(c15*c4)"
NewBook.Sheets(1).Range("D16") = "=sum(c16*c4)"
NewBook.Sheets(1).Range("D17") = "=sum(c17*c4)"
NewBook.Sheets(1).Range("D18") = "=sum(c18*c4)"
NewBook.Sheets(1).Range("D19") = "=sum(c19*c4)"
NewBook.Sheets(1).Range("D20") = "=sum(c20*c4)"
NewBook.Sheets(1).Range("D21") = "=sum(c21*c4)"
NewBook.Sheets(1).Range("D22") = "=sum(c22*c4)"
NewBook.Sheets(1).Range("D23") = "=sum(c23*c4)"
NewBook.Sheets(1).Range("D24") = "=sum(c24*c4)"
NewBook.Sheets(1).Range("D25") = "=sum(c25*c4)"
NewBook.Sheets(1).Range("D26") = "=sum(c26*c4)"
NewBook.Sheets(1).Range("D27") = "=sum(c27*c4)"
NewBook.Sheets(1).Range("D28") = "=sum(c28*c4)"
C9 dan C29-a kadar olan hücreler C4-e burulsun.Ve D9 dan D29 a kadar yazılsın