Teste ai:

Sub Consol()
Dim x As Integer

Sheets("consol").Range("A2:DV551").Clear

For x = 1 To 11
Sheets(x).Range("A2:DV50").Copy
Sheets("Consol").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next x

Range("A2").Select

End Sub

Ou então, você tem um trabalhinho de desenvolvimento para vincular cada célula das 11 planilhas na planilha "Consol", por exemplo, na célula Consol!A2 vai a fórmula ='1'!A2 e você arrasta para as linhas e colunas necessárias e vai repetindo o procedimento para cada planilha. Daí você nem precisa de macro, pois vai ter sempre o valor real na planilha Consol. É o que eu faria.

Obrigado Issamu pela dica e pela solução do meu problema.

A solução funcionou, porém pelo cálculo que fiz a quantidade de linhas preenchidas deveria ser 50 x 11 = 550. Aconteceu porém que o total copiado foi de 491.
Mas aí segui a sua dica de vincular as células, nesse momento resolveu a minha necessidade.

Mas obrigado !