ve se isso ajuda

Sub sequencia()
    ni = 1    'nuero inicial
    nf = 10    ' numero final
    ns = 16    'quantidade por numero
    li = 2    ' linha inicial
    c = "b"    ' coluna
    
    
    nt = 1
volta:
    Cells(li, c).Value2 = ni
    li = li + 1
    If nt = ns Then nt = 1: ni = ni + 1 Else nt = nt + 1
    If ni < nf Then GoTo volta
End Sub

Amigo, Boa Tarde!!

Att.Ney

olha, em qualquer planilha que se rodar funciona perfeitamente
e vc não disse oq deu de errado
é uma macro super simples é só se atentar para essas informações
ni = 1 'nuero inicial
nf = 10 ' numero final
ns = 16 'quantidade por numero
li = 2 ' linha inicial
c = "b" ' coluna

ok amigo, eu não falei que deu errado, falei que não consegui fazer adaptação para o funcionamento, mas mesmo assim obrigado pela ajuda.

Att: Sidney

ok amigo, eu não falei que deu errado, falei que não consegui fazer adaptação para o funcionamento, mas mesmo assim obrigado pela ajuda.

Att: Sidney

ok
então vamos aguardar alguém com uma bola de cristal em bom estado e desocupada
a minha está com trabalho extra tentando sintonizar os próximos resultados da mega sena apesar de estar toda remendada de tantas vezes que taquei na parede por previsões errôneas

Estou querendo fazer uma sequencia numeral, onde somente a cada 16 linhas ele aumente um número em uma coluna
Preciso que limite digitando o inicio e o fim do da sequencia.

Alternativa:
coloque em A1 = número inicial da sequência
coloque em B1 = número final da sequência

cole a fórmula abaixo em qualquer célula vazia e arraste

=SE(INT((LIN(A1)-1)/16)+A$1>B$1;"";INT((LIN(A1)-1)/16)+A$1)

Prezado Osvaldomp

Muito obrigado pela sua ajuda deu certinho simples prático, fique com Deus amigo e até breve.

Att: Sidney