Foro Excel

Hola genios del foro
Mi consulta es la siguiente: la macro que describo abajo me permite "trasladar" una fila de una hoja a otra.
Quisiera que no la traslade sino que la copie, esto puede ser posible?
Que tengan todos un excelente dia.
Gracias

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
If Target.Column <> 6 Or Target.Row < 8 Then Exit Sub
If Target = "" Then Exit Sub
If Target = "C" Then
uf = Sheets("C").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Sheets("C").Range("B" & uf) = Range("B" & Target.Row)
Sheets("C").Range("C" & uf) = Range("C" & Target.Row)
Sheets("C").Range("D" & uf) = Range("D" & Target.Row)
Sheets("C").Range("E" & uf) = Range("E" & Target.Row)
Sheets("C").Range("F" & uf) = Range("F" & Target.Row)
Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
End If
Application.CutCopyMode = False
End Sub

ELIMINA ESTA LINEA DEL CÓDIGO

Código: Seleccionar todo

Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp

Excelente
Gracias por tu ayuda

Hola amigos,

Con referencia a esta macro, como puedo utilizar para en lugar de copiar en otra hoja sea en la misma, siendo de una fila a otra fila más abajo y que no se sobreescriba para ir formando una tabla conforme vaya ingresando datos.

Gracias