title: Macro to read a cell value, find in a table if such value exits, if it does, delete table row and shift up
body: <p>Forgot the code:</p>
  
  <p>It returns object variable error.
  I tried to record a macro but Find doesnt function properly with copy and paste, and then, macro records the actual row I´m in, not a variable.</p>
  
  <p>Instead of Find, I also tried " Cells.AutoFilter Field:=2, Criteria1:=x" but that would return Autofilter range class failed. I´m stuck.
  Hope it helps.</p>
  
  <pre><code>Sub alta()
  '
  ' alta Macro
  x = Range("I3").Select
  Selection.Copy
  Selection.Find(What:=x, After:=ActiveCell, LookIn:=xlValues, LookAt _
      :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      True, SearchFormat:=False).Activate
  Application.CutCopyMode = False
  Selection.EntireRow.Delete
  Range("I3").Select
  Selection.ClearContents
  End Sub
  </code></pre>