Ahora sí que se entiende tu necesidad.
Pues mira, puedes incorporar una macro como la que sigue:
Código:
Sub Copiar_y_Pegar()
Sheets("Hoja2").Protect _
Password:="mipassword", _
DrawingObjects:=False, Contents:=False, Scenarios:=False
[A2:C2].Copy Destination:=Sheets("Hoja2").[A65536].End(xlUp).Offset(1, 0)
Sheets("Hoja2").Protect _
Password:="mipassword", _
DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub Naturalmente, tienes que:
a) reemplazar las dos apariciones de "
mipassword" por la verdadera clave que tiene tu Hoja2;
b) tienes que proteger tu proyecto pues de lo contrario es muy sencillo averiguar la clave; y
c) Advierte que en la macro he supuesto que los datos se introducen en el rango "
A2:C2". Modifica ese rango de ser necesario.
Saludos