Recent content by halogen_bulb

Solution I gathered form this forums and other forums Sub sumx() Dim LastRow As Long LastRow = Range("P65536").End(xlUp).Row + 1 ActiveCell.Select Selection.Formula = "=SUM(P" & LastRow + 1 & ":" & Format(ActiveCell.Row - 1, "P#") & ")" End Sub

Hi, I was able to create a macro to sum up a range of every page but that was fixed only on specific numberof rows. The problem arises when size of the rows on every page vary and the result of the sum will not be the actual value of every page rather the sum up is overlapped or shortened...