title: loop through all worksheets and add sums/formulas at bottom of each
body: <p>I'm working on a macro that does two things. First, it will split data into multiple sheets (with each sheet based on the value of a specific column). Second, it will loop through all the sheets and add certain sums and formulas to the bottom of each sheet.</p>
  
  <p>I found a very helpful bit of code to split the sheets which I modified slightly and works fine. And I found another bit of code that will cycle through all the sheets in the document. I'm just not sure how to add the necessary sums/formula fields to the end of each sheet.</p>
  
  <p>The code to loop through the sheets is this:</p>
  
  <pre><code>  Sub WorksheetLoop2()
  
       ' Declare Current as a worksheet object variable.
       Dim Current As Worksheet
  
       ' Loop through all of the worksheets in the active workbook.
       For Each Current In Worksheets
  
          ' Insert your code here.
          ' This line displays the worksheet name in a message box.
          MsgBox Current.Name
       Next
  
    End Sub
  </code></pre>
  
  <p>So in the "insert your code here" part I need code that: </p>
  
  <ol>
  <li>Finds the last row of data on the sheet</li>
  <li>Go down one or two rows from there</li>
  <li>In column A add a label that just says "Total Points"</li>
  <li>In column B make a cell that sums the total of all the values in column H</li>
  </ol>
  
  <p>And I think I can figure out the rest if I get that far.</p>
  
  <p>Any help or advice would be greatly appreciated. Thanks very much!</p>