Loop in Sum with the help of VBA code

Question

Hello Everyone,&nbsp;&nbsp;When we run the loop multiple time, its adding up and filling the next cells down. what function to be given to to get the sum value which sticks to single cell ?&nbsp;Please help...&nbsp;&nbsp;Here is a attached file..

oliverscheurich · Accepted Answer

Excel&nbsp;Sub AutomateSum()
    
    Dim lastrow As String
    
    Dim ws As Worksheet
    
    For Each ws In Worksheets
    
    Worksheets(ws.Name).Select
    
    Range("E2").Select
    
    Selection.End(xlDown).Select
    
    lastrow = ActiveCell.Row
    
    ActiveCell.Offset(1, 1).Select
    
    ActiveCell.Value = "=sum(F2:F" &amp; lastrow &amp; ")"
    
    Next ws

End SubYou can try the attached file with these lines of code.&nbsp;&nbsp;

Forum Discussion

Loop in Sum with the help of VBA code

2 Replies

Resources