Com fusionar dades de diverses fulles EXCEL en una sola amb Macros VBA

Per fusionar dades de diverses fulles d'un llibre d'EXCEL en una sola segueix les següents instruccions:

 1. Guarda el Llibre d'Excel on tens les fulles i les dades com a "Libro de Excel habilitado para macros"

2. Ves a la pestanya Programador (1), després prem Macros (2), posal-li el nom que vulguis (3) , prem crear (4), escriu el codi que veus més avall (5) i desa-la (6):

Sub Fusionar_Taules()

Application.DisplayAlerts = False
Dim fulla As Worksheet
Dim x As Integer
For Each fulla In ActiveWorkbook.Sheets
If fulla.Name = "Fusio" Then fulla.Delete
Next
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Fusio"
For x = 2 To Sheets.Count
Sheets(x).Select
Range("a5:k" & Range("a65000").End(xlUp).Row).Copy
Sheets("Fusio").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Next x
Sheets("Fusio").Select

End Sub

3. Torna a la pestanya Programador, prem Macros (7) i executa la macro creada (8)

 El resultat és que et crea una fulla nova, en el nostre cas li diem en el codi de la macro que es digui "Fusio", que fusiona totes les dades de totes les fulles.

IMPORTANT!!!!: les dades han de tenir les mateixes columnes en totes les fulles, en el nostre cas de la A a la K, i començar en el mateix número de fila, en el nostre cas la 5.