title: Excel Macro not finding next empty row, just overwriting last one
body: <p>I have a excel spreadsheet with macro's which enters details from form to next empty row. For some reason today it is just over writing the last empty row.</p>
  
  <p>I cant figure out why. Here is snippet of code.</p>
  
  <pre><code>'1. Find first empty row in appropriate sheet
          If optActivity = True Then
              Activity.Activate
              RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 1
          ElseIf optEMP = True Then
              EMP.Activate
              RowNum = WorksheetFunction.CountA(Range("EMP_Clubs")) + 1
      End If
  </code></pre>
  
  <p>Them EMP spreadsheet is working fine, just not the activity one. Anyone have idea, could the activity one be at its max?</p>
  
  <p>Answer: This has seems to solve the problem
  changing this line</p>
  
  <pre><code>RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 1
  </code></pre>
  
  <p>to this</p>
  
  <pre><code>RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 2
  </code></pre>
  
  <p>first line worked all year, until today. Really strange.</p>