Contagem incluir linha automaticamente vba

[Henrique Silva]

Pessoal, boa tarde.

Estou precisando de uma ajuda, preciso fazer algumas inclusões de linhas automaticamente e pretendia usar macro (não sei se é a melhor opção), abaixo segue alguns valores que tenho por linha, entre um valor e outro preciso incluir 40 linhas entre os mesmos, sendo assim então a primeira linha tenho o valor 1055, na segunda linha tenho o valor 1058, então entre o valor 1055 e o 1058 preciso de incluir 40 linhas e assim sucessivamente ate o ultimo valor 1090 sendo que abaixo do ultimo valor 1090 não precisa ser incluído mais nada, para no ultimo valor. Agradeço muito á quem puder me ajudar.

1055

1058

1070

1075

1080

1085

1090

[zinhovba]

Boa noite!!

Esta um pouco vago, você quer inserir 40 linhas, mas é linhas vazias ou com valores.

Tente...

Sub InsesrtZinhoVBA()
Dim i As Long, s As Long, e As Long

s = Application.InputBox("Digite a primeira linha", "Primeira Linha", 2, Type:=1)
If s = 0 Then Exit Sub

e = Application.InputBox("Digite a ultima linha", "Ultima Linha", 2, Type:=1)
If e = 0 Or e < s Then Exit Sub

    For i = e To s Step -2
        Rows(i + 1).Resize(40).Insert 'Mude a quantidade de linha aqui
    Next i

Application.ScreenUpdating = True
End Sub