Boa noite tiago,

Teste:

Sub PreencherID()
    
    'OBS: Estou supondo que os dados estão na coluna A
    'OBS: Também estou supondo que o primeiro valor da coluna foi preenchido (E000001)"
    
    Rem Declaro as váriaveis
    Dim MyCell    As Range
    Dim Nlin      As Double
    
    Rem Descubro o número de linahs
    Nlin = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    
    Rem seleciono a última célula não preenchida
    Cells(Nlin, 1).Select
    
    Set MyCell = Selection
    
    MyCell.NumberFormat = "@"
    
    Rem Adiciona zeros e soma 1 do valor da linha anterior
    MyCell = "0000000" & Right(MyCell.Offset(-1, 0), 6) + 1
    
    MyCell = "E" & CStr(Right(MyCell, 6))
        
End Sub

Se tiver alguma dúvida é só avisar.

OBS: Coloque uma planilha de exemplo se precisar de ajuda.

att,

.0
Pelo que você diz na pergunta, é simples ... coloque em A1 E00001 ... em A2 E00002 ... pronto agora é só selecionar e arrastar até onde desejar!!!
.

Com fórmulas:

A2: E00001
A3:

="E"&texto(EXT.TEXTO($A2;2;5)+1;"00000")

E arrasta, ou escreva esta fórmula a cada inserção do formulário, e em seguida, cole valor, ou seja, pode usar a fómula acima, direto na célula, OU, via ódigo, assim:

Range("A" & Linha).FormulaR1C1="=""E""&TEXT(MID(R[-1]C,2,5)+1,""00000"")"

p.s.: não testei, mas é pra funcionar...