Capturar últimos digitos e adicionar linhas

[Edson_Barbosa]

Amigos, necessito de ajuda. Sou iniciante na linguagem VBA e tenho uma dúvida: como capturar o último número de uma sequência que aparece na célula posterior e usar esse mesmo número para adicionar linhas?  Segue o exemplo (tive de digitar pois não consegui colar a imagem):
                       A                                                  B
1        290000000                           2900000003
2        290000001
3        290000002
4        290000003                         
5        290000005                            2900000003

6        290000006

7        290000007

8        290000008

 

Em determinado momento os valores na coluna B acabam e preciso informar no código para parar de adicionar linhas.  Alguém poderia ajudar-me?
 

[Alyson Ronnan Martins]

Boa tarde @Edson_Barbosa

tenta o seguinte:
 

Right(Range("A2"), 1)