Copiar datos de una hoja a otra

H o l a:

Para que no se copien los encabezados tienes que modificar esta línea de la macro

Const celdaOrigen = "A1"

Si los encabezados están en la fila 1, entonces debe quedar así:

Const celdaOrigen = "A2"

Si los encabezados están en la fila 2, entonces hay que empezar a copiar a partir de la fila 3, entonces quedaría así:

Const celdaOrigen = "A3"

Hola dante gracias por la respuesta lo hice así como dices y realizo el pegado sin el encabezado pero hay un problema no copia todo el rango seleccionado esto sucede cuando cambio la constante para que tome desde A2, solo me copia las primeras 11 columnas de las 16 que tengo.

Adjunto el código gracias.

Sub Botón1_Haga_clic_en()
Sheets("Copia").Select
Range("a1").Select
Selection.EntireColumn.Delete
Range("c1").Select
Selection.EntireColumn.Delete
Range("c1").Select
Selection.EntireColumn.Delete
Range("c1").Select
Selection.EntireColumn.Delete
Range("c1").Select
Selection.EntireColumn.Delete
Range("d1").Select
Selection.EntireColumn.Delete
Range("e1").Select
Selection.EntireColumn.Delete
Range("k1").Select
Selection.EntireColumn.Delete
Range("n1").Select
Selection.EntireColumn.Delete
Range("n1").Select
Selection.EntireColumn.Delete
Range("n1").Select
Selection.EntireColumn.Delete
Range("p1").Select
Selection.EntireColumn.Delete
Range("r1").Select
Selection.EntireColumn.Delete
Range("r1").Select
Selection.EntireColumn.Delete
Range("r1").Select
Selection.EntireColumn.Delete
Range("t1").Select
Selection.EntireColumn.Delete
Range("h1").Select
Selection.EntireColumn.Delete
Range("h1").Select
Selection.EntireColumn.Delete
Range("h1").Select
Selection.EntireColumn.Delete
CopiarCeldas
End Sub
Sub CopiarCeldas()
'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Copia")
Set wsDestino = Worksheets("Entradas")
'Indicar la celda de origen y destino
Const celdaOrigen = "A1"
Const celdaDestino = "A1"
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
'Set rngDestino = wsDestino.Range(celdaDestino)
u = wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1
Set rngDestino = wsDestino.Range("A" & u)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

Esa macro que seleccionaste tiene algunas limitaciones, mejor utiliza esta macro:

Sub CopiarCeldas()
'Por.Dante Amor
    Set h1 = Sheets("Copia")
    Set h2 = Sheets("Entradas")
    uf = h1.Range("A" & Rows.Count).End(xlUp).Row
    uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column
    u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    h1.Range(h1.Cells(2, 1), h1.Cells(uf, uc)).Copy h2.Range("A" & u)
End Sub

¡Gracias! 

Dante funciono de maravilla, gracias por el tiempo y por tu ayuda.

Si no tienes más dudas, recuerda cambiar la valoración a la respuesta.

Dante disculpa la ignorancia donde cambio la valoración de la pregunta no encuentro como hacerlo