Mejorar formula que permite registrar abonos.

Hola.

Espero que me puedan ayudar con esta formula que tengo, la verdad es que corre muy lenta, o a veces se bloquea y no se que otra formula puedo utilizar, les agradecería cualquier sugerencia, gracias.

Worksheets("CXC").Select

Set ls = Hoja2

For j = 4 To 50000

If TextBox1 = ls.Cells(j, 8) Then

ls.Cells(j, 9) = TextBox4.Value * 1

Exit For

End If

Next

Worksheets("ABONOS").Select

Set ls = Hoja1

For j = 4 To 50000

If TextBox1 = ls.Cells(j, 7) And ls.Cells(j, 10) = 0 Then

ls.Cells(j, 10) = "CANCELADO"

Exit For

End If

Next

Worksheets("CXC").Select

Set ls = Hoja2

For j = 4 To 50000

If TextBox1 = ls.Cells(j, 8) And ls.Cells(j, 9) <= 0 Then

Selection.EntireRow.Delete

Exit For

End If

Next

Adjunto archivo.

prueba excel abono1.xls