Existe algum código realmente interessante publicado aqui que deve fazer o que você quiser com alguns ajustes.
Gordon
Algumas alterações precisarão ser feitas, o que é bem comentado. Essas linhas obtêm todos os dados da coluna A na pasta de trabalho e os copiam para a planilha mestre.
LR = Range("A" & Rows.Count).End(xlUp).Row 'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)
Em vez disso, você precisará percorrer as planilhas e definir os intervalos que deseja copiar com algo assim.
wbData.sheets(1).range("A2:A26").copy .Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 wbData.sheets(2).range("A2:A62").copy .Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ...