Disponibilize um ARQUIVO modelo. com dados de exemplo

Informando o resultado esperado.

Segue o arquivo para melhor entendimento. Obrigado

Ve se isso ajuda

Bom dia amigos, obrigado MPrudencio pela dica, mas na realidade o que eu preciso é que seja listado numa planilha os valores de C5 - D6, de todas as planilhas, o problema é que o arquivo pode ter 2 planilhas ou 20. ( pra funcionar bem o codigo precisa vericar seja em uma planilha ou em varias). Desde ja agradeço

To quase lá, esse codigo me atende parcialmente, só que eu quero que os dados coletados seja adicionados numa unica planila , que vai conter os dados de B1 de todas as demais planilhas.
Sub Copy_Rang()
Dim i As Integer

For i = 1 To Sheets.Count
Sheets(i).Range("B1").Copy
Sheets(i).Range("A1").PasteSpecial Paste:=xlPasteValues
Next

End Sub

Não consigo achar o erro no codigo, ele não cola em sequencia na planilha teste.

Sub Copy_Rang()
Dim i As Integer
Dim nr As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("B1").Copy
With Sheets("teste")
nr = .Range("A" & Rows.Count).End(xlUp).Row - 1
.Range("A1" & nr).PasteSpecial Paste:=xlPasteValues
End With

Next
End Sub

Tenta assim

Troque isso

nr = .Range("A" & Rows.Count).End(xlUp).Row - 1
.Range("A1" & nr).PasteSpecial Paste:=xlPasteValues

Por isso

nr = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & nr).PasteSpecial Paste:=xlPasteValues

Perfeito MPrudencio. obrigado