Usando Datos.Sheets(1).Range("a2:e50").Copy y luego ActiveSheet.Paste deseo eliminar mensaje "se ha puesto gran cantidad..."

[hola 

para limpiar el portapapeles

Application.CutCopyMode = False

Sub copia()
Sheets(1). Range("a2:e50"). Copy
ActiveSheet. Paste
Application.CutCopyMode = False
End Sub

Estimado, agregué tu línea pero sigue apareciendo el mensaje del portapapeles, le debo responder que (si) mantenga los datos si le doy que (no) los pierdo y no se copian, traigo el rango de datos y lo copio en mi hoja actual al final de una lista. Este es el código .

Sub extraerDatosOtroLibro()

Dim libroDatos As Workbook
Set libroDatos = Workbooks.Open("C:\Trabajo Auditoria\Activo Fijo\Puertos\Altas.xlsx")
libroDatos.Sheets(1).Range("a2:e50").Copy
libroDatos.Close savechanges:=False
'-para determinar final de datos existentes
Dim ultimaFila As Long
Dim ultimaFilaHoja As Long
ultimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
ultimaFilaHoja = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1

'-----------------------
Range("A" & ultimaFilaHoja).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub