Looping

Hello,

Here is a loop code that sifts threw data deleting all records that have offsetting balance amounts. My problem is that my list is is over 4000 rows long and it either becomes non responsive, or I'll mannually exit the sub and try to run it again to continue at which point it freezes again... is there somthing wrong with my code, is it inefficient?? can anyone tell me where im going wrong...

Sub Eliminate()

    Range("T6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Range("T6").Select
          Do While ActiveCell.Value <> "End"
           If ActiveCell.Value <> 0 Then
            ActiveCell.EntireRow.Delete
            If ActiveCell.Value = 0 Then
             ActiveCell.Offset(1, 0).Select
           End If
          End If
        Loop
End Sub

Any answer is a good answer

Thanks