title: Run code from current active cell to not overwrite previous cells
body: <p>I have developed the following code to select the next empty cell, but it will not run the rest of my code, which checks columns. </p>
  
  <p>When I run the code, it overwrites my previous work. I want the code to find the next empty cell and run from there, ignoring the previous cells. The bottom half of the code worked before trying to select the first empty cell.</p>
  
  <pre><code>Sub Outcome()
  Dim Action As String
  Dim Status As String
  Dim Module As String
  Dim Outcome As String
  Dim x As Integer
  Dim a As Integer
  
  Application.Goto Cells(Rows.Count, "J").End(xlUp).Offset(1), Scroll:=True
  
  For x = Active.Cell To 500 ---&gt; (First blank cell to 500)
  Action = Cells(x, 5).Value
  Status = Cells(x, 8).Value
  Module = Cells(x, 9).Value
  Outcome = Cells(x, 10).Value
  
  
  If Action = "" Then Exit Sub
  
  If Action = " Page was incorrectly blocked" And Status = "NOT BLOCKED" And Module = "NOT BLOCKED" Then Outcome = "No Action" Else
  If Action = " Page was incorrectly blocked" And Status = "BLOCKED" And Module = "caravan" Then Outcome = "Check" Else
  If Action = " Page was incorrectly blocked" And Status = "BLOCKED" And Module = "Holiday" Then Outcome = "Refer to Nominum" Else
  If Action = " Page was incorrectly blocked" And Status = "" And Module = "" Then Outcome = "Check" Else
  
  
  If Action = " Page was incorrectly blocked (caravan)" And Status = "NOT BLOCKED" And Module = "NOT BLOCKED" Then Outcome = "No Action" Else
  If Action = " Page was incorrectly blocked (caravan)" And Status = "BLOCKED" And Module = "caravan" Then Outcome = "Check" Else
  If Action = " Page was incorrectly blocked (caravan)" And Status = "BLOCKED" And Module = "Holiday" Then Outcome = "Refer to Nominum" Else
  If Action = " Page was incorrectly blocked (caravan)" And Status = "" And Module = "" Then Outcome = "Check" Else
  
  
  If Action = " Page was incorrectly blocked (Malware)" And Status = "NOT BLOCKED" And Module = "NOT BLOCKED" Then Outcome = "No Action" Else
  If Action = " Page was incorrectly blocked (Malware)" And Status = "BLOCKED" And Module = "Holiday" Then Outcome = "Refer to Nominum" Else
  If Action = " Page was incorrectly blocked (Malware)" And Status = "BLOCKED" And Module = "caravan" Then Outcome = "Check" Else
  If Action = " Page was incorrectly blocked (Malware)" And Status = "" And Module = "" Then Outcome = "Check" Else
  
  
  If Action = " This page should be blocked." And Status = "NOT BLOCKED" And Module = "NOT BLOCKED" Then Outcome = "Check" Else
  If Action = " This page should be blocked." And Status = "BLOCKED" And Module = "caravan" Then Outcome = "No Action" Else
  If Action = " This page should be blocked." And Status = "BLOCKED" And Module = "Holiday" Then Outcome = "Refer to Nominum" Else
  If Action = " This page should be blocked." And Status = "" And Module = "" Then Outcome = "Check" Else
  
  Next x
  
  End Sub
  </code></pre>