Excel 2007 : Deleting rows that end with some value

Try this

Option Explicit

Sub removeRows()
    Dim c As Range
    Dim MyRange As Range
    Dim SearchRange As Range
    Dim r As Long

    Set SearchRange = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))

    For Each c In SearchRange
        If Right(c.Value, 4) = "2000" Then
            If MyRange Is Nothing Then
                Set MyRange = c
            Else: Set MyRange = Union(MyRange, c)
            End If
        End If
    Next c
    MyRange.Delete
End Sub