Copiar y eliminar Registros

[Leyda]

Hola buenas tardes..

Necesito ayuda verán intento que de una hoja llamada Rentas los equipos que ya se regresaron es decir marcan "SI" se copien y se peguen en la hoja Historicos y una vez pegados se eliminen de la hoja rentas con el fin de que me queden solo los equipos que siguen rentados e intentado con la siguiente macro, no soy buena lo he hecho con lo que e podido encontrar por eso muchos les agradecería su ayuda

 

Private Sub transferir_Click()
Application.ScreenUpdating = False
    Set h1 = Sheets("hoja3")
    Set h2 = Sheets("hoja11")
    j = h2.Range("K" & Rows.Count).End(xlUp).Row + 1
    For i = h1.Range("k" & Rows.Count).End(xlUp).Row To 2 Step -1
        If h1.Cells(i, "K") = "SI" Then
        h1.Rows(i).Copy
        h2.Range("A" & j).PasteSpecial xlValues
        h1.Rows(i).Delete
        j = j + 1
    End If
Next
   
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Se transfirio"
End Sub

 esta la puse en un botón para correr la macro no se si se pudiera hacer automatico sin usar el boton

con solo ponerle si se elimine de esa hoja y se pase a historicos

 

 

[Enigma25]

Buenas noches @Leyda

Por favor adjunte un archivo con el ejemplo de lo que espera obtener y encierre su código en la etiqueta correspondiente.

Saludos cordiales.

[Gerson Pineda]

Leyda

No veo necesario estar eliminando y copiando, porque no manejas un "tracking" y a partir de este, transformas toda esa información para presentancion o calculos

 

Saludos estimado @Enigma25

[Enigma25]

Saludos @Gerson Pineda. Mis respetos para ti.