Gary

Try this.
[vba]
Sub RemovePromotedAndTransferredMembers()
Dim LastRow As Long
Dim c As Range
Dim I As Long

With Sheets("Monthly Tally").Select
'Find The Last Row On The "Monthly" Worksheets
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
'Find Promoted And Transferred Members And Delete The Entire Row
For I = LastRow To 5 Step -1 'Each c In Range("A5:A" & LastRow)
Set c = .Range("A" & I)
If Left(c, 8) = "Promoted" Then
c.EntireRow.Delete

ElseIf Left(c, 11) = "Transferred" Then
c.EntireRow.Delete
End If
Next I
End With
End Sub[/vba]