Pessoal, boa tarde!  

Estou com dificuldade em juntar abas do meu arquivo em Excel. 

1- Nem sempre meus arquivos terão a mesma quantidade de abas.

2 - Minha intenção é juntar as planilhas em blocos. Ex: Juntar as planilhas somente do Bloco C - do C001 ao C197

3 - Estou utilizando um código que copia os dados da planilha seguinte na planilha C001 e depois deleta a planilha. Ex: copia os dados da planilha C100 para a planilha C001 e depois deleta a planilha C100. 

4- O problema é que não consigo para meu loop até chegar na planilha C197, ele vai fazendo o procedimento até o final das planilhas. 

5- O Worksheets.Count não esta servindo para mim e gostaria de uma ajuda para o loop parar quando chegar em determinada planilha.

Segue o código que estou tentando trabalhar: 

Sub juntarabas()

' desabilita atualização da tela
Application.ScreenUpdating = False
' desabilita mensagens
Application.DisplayAlerts = False
' dimensiona variável
Dim LIN As Integer

' copia o conteúdo da aba seguinte e apaga a aba
Do
Sheets("C001").Select
' define a primeira linha vazia da aba atual
LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' vai para a aba seguinte
ActiveSheet.Next.Select
' copia o conteúdo necessário
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
' volta para a aba inicial e cola
ActiveSheet.Previous.Select
Rows(LIN).Insert Shift:=xlDown
' vai para a aba copiada e deleta ela
ActiveSheet.Next.Select
ActiveSheet.Delete
' limpa a variável LIN
LIN = 0
' repete o procedimento até haver apenas 1 aba
Loop Until Worksheets.Count =1
'apaga área de transferência
Application.CutCopyMode = False
' habilita atualização da tela
Application.ScreenUpdating = False
' habilita mensagens
Application.DisplayAlerts = False
Range("A1").Select
End Sub

Agradeço quem puder ajudar!!