Problema al pegar una tabla

[Patipfc]

Hola a todos!!

Mi problema es que tengo dos tablas de igual dimension en dos hojas diferentes. y quiero juntarlas en una tercera hoja. Me gustaría que la macro fuera a

Sub CopiarCeldas()


'Definir objetos a utilizar

Dim wsOrigen As Excel.Worksheet, _

    wsCont As Excel.Worksheet, _

    wsDestino As Excel.Worksheet, _

    rngOrigen As Excel.Range, _

    rngCont As Excel.Range, _

    rngDestino As Excel.Range


'Indicar las hojas de origen y destino

Set wsOrigen = Worksheets("Origen")

Set wsCont = Worksheets("Cont")

Set wsDestino = Worksheets("Destino")


'Indicar la celda de origen y destino

Const celdaOrigen = "A1"

Const celdaDestino = "A1"

Const celdaCont = "A1"



'Inicializar los rangos de origen y destino

Set rngOrigen = wsOrigen.Range(celdaOrigen)

Set rngDestino = wsDestino.Range(celdaDestino)

Set rngCont = wsCont.Range(celdaCont)


'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 xlPasteValues

Application.CutCopyMode = False


'Seleccionar última fila

'Range("A1").Select

'Do While ActiveCell <> Empty

'ActiveCell.Offset(1, 0).Select

'Loop

'Pegar valores de la otra tabla


'Seleccionar última fila2


Dim UltFila As Long

UltFila = Range("A65536").End(xlUp).Row

UltFila = UltFila + 1

Cells(UltFila, 1).Select

ActiveCell.Value = rngCont




End Sub[/CODE]

dimensional para posteriormente utilizarla con otras tablas.

El problema esque no se pegar la segunda hoja en la hoja final ("Destino") una vez que he encontrado la primera celda vacía.

es mi primera macro.....

os pongo el codigo por si alguien me puede ayudar!!

Hoja 1: Origen (está la tabla 1)

Hoja 2: Destino (dnd juntamos las tablas)

Hoja 3: Cont (esta á segunda tabla)

el código es el siguiente:

MUCHAS GRACIAS