Quiero unir varias hojas de excel en una sola

Cerrado
Message postés
1
Date d'inscription
martes, 9 de julio de 2013
Estatus
Miembro
Última intervención
martes, 9 de julio de 2013
-
Hola,

quiero unir los datos de la 10 hojas de excel en una sola pues tengo este codigo

'------Inicio Codigo------
Sub test()
Dim h As Long, hFinal As Worksheet
Dim rngOrig As Range, rngDest As Range
Dim Fila As Long, UltFila As Long, UltCol As Integer

Application.ScreenUpdating = False
With ThisWorkbook
Set hFinal = .Worksheets(1)
UltCol = hFinal.Columns(256).End(xlToLeft).Column
For h = 2 To .Worksheets.Count
Fila = hFinal.Range("A65536").End(xlUp).Row
With Worksheets(h)
UltFila = .Range("A65536").End(xlUp).Row
Set rngOrig = .Range(.Cells(2, 1), _
.Cells(UltFila, UltCol))
End With
With hFinal
Set rngDest = .Range(.Cells(Fila + 1, 1), _
.Cells(Fila + UltFila - 1, UltCol))
End With

'Si hay q copiar formulas y formatos usa "Copy"
'rngOrig.Copy rngDest

'Si solo se quiere copiar constantes usa "="
rngDest.Value = rngOrig.Value
Next h
End With
Application.ScreenUpdating = True
End Sub
'------Fin Codigo------

este me permite solo unir la columna A de todas las hojas, pues io quiero unir todos los datos que existen en las hojas q son desde A hasta AD por favor ayudenme,....