Nao entendi.

Prudêncio,

QTD: 10.
A listagem que eu preciso que apareça é:
1
1
2
2
3
3
4
4
5
5
6
6
7
7
8
8
9
9
10
10

Isso de acordo com a quantidade que o usuário informou na célula acima.

Cole esse codigo em um modulo

A quantidade deve ser digitada em A1

Sub Codigo()

Dim Codigo As Double
Dim Linha As Long


Codigo = Range("A1").Value
Linha = 2


For a = 1 To Codigo

Cells(Linha, 1).Value = a
Linha = Linha + 1
Cells(Linha, 1).Value = a
Linha = Linha + 1
Next

End Sub

Funcionou! Obrigado.

E agora pra eu concatenar, por exemplo,

a variável contadora a uma coluna
A1, A2, An..

Nao entendi como concatenar?

Faz um exemplo pratico do resultado

Assim ó,

Coluna H c/ contador do loop.
H1, H2, H3.

Por exemplo, a quantidade é 5.
Vai ficar dai,

COLUNAH1, COLUNA H2, COLUNA H3, COLUNA H4, COLUNA H5.

Cells(i + 7, 14).Formula = Range("M" & (i + 7)) * 1000000#

Eis a resposta, obrigado a quem ajudou.