Como copiar fila en otro libro antes de eliminarla

[jose lopez contreras]

 

Sub eliminarProducto()
    Dim Dato As String
    Dim C As Range
    Dim uf As Long
    uf = Hoja10.Range("A" & Rows.Count).End(xlUp).Row
    With ListBox1
       For x = 0 To .ListCount - 1
          If .Selected(x) Then
              Dato = ListBox1.Text
                  With Hoja10.Range("A2:A" & uf)
                  Set C = .Find(Dato, LookIn:=xlValues, lookat:=xlWhole)
                    If Not C Is Nothing Then
                        C.Rows.EntireRow.Copy
                        C.Rows.EntireRow.Delete
                        UserForm_Initialize
                        MsgBox "Ha eliminado la clave  " & Dato
                        Exit Sub
                     End If
                  End With
          End If
       Next
    End With

End Sub

 

[jose lopez contreras]

Disculpa amigos por la prisa no puse lo requerido.

Requiero adaptar esta macro para que antes de eliminar la fila seleccionada del Listbox y de la hoja10  la copie en otro libro llamado "Resguardo entregado" en la ultima fila vacia de la hoja1, anexando una columna mas con fecha y hora del copiado. espero apoyo de los especialista. gracias por su atencion

[jose lopez contreras]

Hace 48 minutos , jose lopez contreras dijo:

 

Sub eliminarProducto()
    Dim Dato As String
    Dim C As Range
    Dim uf As Long
    uf = Hoja10.Range("A" & Rows.Count).End(xlUp).Row
    With ListBox1
       For x = 0 To .ListCount - 1
          If .Selected(x) Then
              Dato = ListBox1.Text
                  With Hoja10.Range("A2:A" & uf)
                  Set C = .Find(Dato, LookIn:=xlValues, lookat:=xlWhole)
                    If Not C Is Nothing Then
                        C.Rows.EntireRow.Delete
                        UserForm_Initialize
                        MsgBox "Ha eliminado la clave  " & Dato
                        Exit Sub
                     End If
                  End With
          End If
       Next
    End With

End Sub