Delete rows based on cell value change

[Enzo_Matrix]

I have a code to delete specific rows depending on whether or not the cell value is set to "Void".

Sub DeleteRows()    Dim c As Range
    Dim SrchRng


    Set SrchRng = ActiveSheet.Range("E1", ActiveSheet.Range("E65536").End(xlUp))
    Do
        Set c = SrchRng.Find("Void", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End Sub

There is a daily dump that can add anywhere from 10-50 rows to my table and I'm trying to get this to run automatically as the data in my table changes. After some Googling I found this but it does not work run automatically.

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$2" Then
Dim c As Range
    Dim SrchRng


    Set SrchRng = ActiveSheet.Range("E1", ActiveSheet.Range("E65536").End(xlUp))
    Do
        Set c = SrchRng.Find("Void", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End If
End Sub

 

[ranman256]

this assumes data is in every cell in col (A)
and the Void is in col E

Public Sub ScanRows2Del()
Sheets("sheet1").Activate
Range("A1").Select
FarDown
 'start at bottom
While ActiveCell.row >1 
   If ActiveCell.Offset(0, 4).Value = "Void" Then        'if col 4 (E) = "void" then delete it
      Delete1Row ActiveCell.Row
   End If
   PrevRow
Wend
End Sub


Private Sub PrevRow()
ActiveCell.Offset(-1, 0).Select
End Sub


Private Sub FarDown()
    Selection.End(xlDown).Select
End Sub


Private Sub Delete1Row(ByVal plRow As Long)
    Rows(plRow & ":" & plRow).Select
    Selection.Delete Shift:=xlUp
End Sub

 

[Enzo_Matrix]

When you say data in every cell in column A..does that mean the entire column A:A is filled?

As it sits right now I only have data in A2:E100. Will that code work as I increase the data range?

 

[Enzo_Matrix]

this works, but it does not run automatically.
I still have to open the VBA code and run manually. Once I do, it gives me the option of which Macro I want to execute.

After I execute the 'Delete1Row' Macro it removes all the rows with 'Void' in it