Hi forum
Beow is the vba code (Sixthsense write this code) to add the coloum left to the Cumu coloumn. But In Cumu coloumn Sum value did not refresh.
Sub Macro3()
Dim rFound As Range
Set rFound = Rows("2:2").Find("Cumu")
If rFound Is Nothing Then Exit Sub
Set rFound = rFound.Resize(8)
rFound.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
With rFound
With .Cells(1)
.Offset(, -1).Value = .Offset(, -2).Value + 1
End With
.Cells(.Cells.Count).Offset(, -1).FillRight
End With
End Sub
pls see attached file.
Bookmarks