La macro no hace lo que debería hacer

Espero que me puedan ayudar.

Copié desde internet una macro para copiar las hojas de varios libros y pegarlos en un solo libro (1.- Res. Cinetica Molienda... Xlsm" pero no me hace nada. ¿Alguien me podría decir dónde está el error? Acá está la macro:

Private Sub Copiar_Hojas_Click()
Dim directorio As String
'Variable de tipo texto para almacenar el fichero actual
Dim fichero As String
'Variable de tipo texto para almacenar el nombre del libro de excel donde importar
'las hojas
Dim ficherodondeimportar As String
'Variable de tipo "hoja de excel" para almacenar la hoja actual del fichero actual
Dim hoja As Worksheet
'Variable de tipo entero para almacenar las hojas que tengo en el libro donde importar
'las hojas
Dim totalhojas As Integer
'Le doy un valor a la variable directorio con el directorio donde están el resto
'de lo libros de excel
directorio = "C:\Users\Cinética de Molienda"
'Le doy un valor al libro donde quiero importar todas las hojas del resto de libros
ficherodondeimportar = "1.- Res. Cinetica Molienda RT OL-5099.xlsm"
'Le doy un valor a la variable fichero con el primer libro de excel que está
'en el directorio
fichero = Dir(directorio & "*.xlsx")
'Desabilitamos las actualizaciones de pantalla y alertas para que el usuario no note
'que estamos abriendo libros en este proceso
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Mientras exista un nuevo libro de excel en el directorio hacer:
Do While fichero <> ""
'Abrimos el libro de excel
Workbooks.Open (directorio & fichero)
'Por cada hoja dentro del libro
For Each hoja In Workbooks(fichero).Worksheets
'obtenemos el numero de hojas de nuestro libro (donde queremos importar todo)
totalhojas = Workbooks(ficherodondeimportar). Worksheets. Count
'copiamos todo el contenido del libro que estamos abriendo en nuestro libro
'al final de todas las hojas
Workbooks(fichero). Worksheets(hoja. Name).Copy after:=Workbooks(ficherodondeimportar). Worksheets(totalhojas)
Next hoja
'Cerramos el libro de excel actual
Workbooks(fichero). Close
'Le doy un nuevo valor a la variable fichero para tomar el próximo libro del directorio
fichero = Dir()
Loop
'Le doy un valor "True" a las variables de actualización de pantalla y alertas para que
'se muestren las nuevas hojas y cambios en el libro donde se importó todo
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub