Eliminar filas después de una condición

Hola Sr ya de nuevo como quedamos, te mando mi macro
tengo la siguiente macro:
              Range("D1").Select
    Do While ActiveCell.Value <> ""
        dato = ActiveCell
        BANCOS.Activate
        Range("H2").Select
        Do While ActiveCell.Value <> ""
                      If Int(ActiveCell) = Int(dato) Then
                Dato1 = ActiveCell.Offset(0, -4)
                Dato2 = ActiveCell.Offset(0, 0)
                Windows("PRUEBA DE MACRO.xls").Activate
                ActiveCell.Offset(0, 2) = Dato1
                ActiveCell.Offset(0, 3) = Dato2
                Exit Do
            End If
            ActiveCell.Offset(1).Select
                    Loop
        Windows("PRUEBA DE MACRO.xls").Activate
        ActiveCell.Offset(1).Select
            Loop
Lo que hace es buscar un dato del libro sepsa en bancos, cuando lo encuentra, copia ese dato más otra celda de aun lado y lo pega en sepsa, y así como con 3000 datos más, lo que quiero ver es si es posible que cuando encuentre el dato en bancos, una vez que copie y pegue, elimine esa fila de bancos, y siga con el proceso, es decir si el dato que estoy buscando de SEPSA, esta en la fila 11 de BANCOS, ya que copio el dato y lo pego en SEPSA, borre la fila de BANCOS y siga con el proceso.
Espero haberme explicado bien
Muchas muchas gracias! Y saludos