¿Cómo juntar los datos de varias hojas en una sola?

Tengo un libro con 20 hojas. Cada hoja tiene datos en las columnas B:W, el primer registro inicia en la fila 4, pero cada hoja tiene diferente número de filas llenas, inculso algunas hojas están vacías.

Lo que me gustaría hacer es que en la Hoja1 se copien los datos de la Hoja2, y en seguida los de la Hoja3, y así sucesivamente, hasta tener en la Hoja1 los datos de las 19 hojas restantes juntos ¿Cómo puedo hacer esto con una macro?