Macro para copiar las dos primeras columnas de la hoja1 de varios archivos en un archivo nuevo

Estoy intentando hacer una macro que me copie las columnas A y B de la primera hoja de varios archivos que tengo en un directorio, y me las copie en un archivo nuevo (en las columnas A y B). Los datos de las columnas A y B son variables (cada archivo tiene un número diferente de filas). Deben seleccionarse los datos de las columnas A y B hasta la última fila ocupada (pueden haber filas vacías en medio). En el nuevo archivo, los datos de las columnas copiadas deberían estar consolidados unos a continuación de otros, en las columnas A y B.

Tengo poca experiencia en macros y con los ejemplos que tengo no he conseguido adaptar el macro a mi caso concreto. Los archivos son .xls.