Ceos005,

Alterei o algoritmo Inserir()
Deletei a instrução if que verificava se era para adicionar 1 ou n+1
Agora, o valor da última linha passa a fórmula de excel lin()-1. Carrego esse valor no UserForm logo em seguida conforme simplificação abaixo:

.Cells(iTotalLinhas, 2).FormulaLocal = "=lin()-1"
Form4.SEQUENCIA = .Cells(iTotalLinhas, 2)

O código completo ficou assim:

Sub Inserir()

    Dim lUltima As Long
    Dim uf As UserForm
    Set uf = Form4
    iTotalLinhas = Sheets(ws).Cells(Rows.Count, 2).End(xlUp).Row + 1
    
'   INÍCIO
'   --------------------------------------------------------------------
        With Sheets(ws)
    
        .Cells(iTotalLinhas, 2).FormulaLocal = "=lin()-1"
        uf.SEQUENCIA = .Cells(iTotalLinhas, 2)
        
        .Cells(iTotalLinhas, 3).Value = uf.TextBoxPOTENCIA
        .Cells(iTotalLinhas, 4).Value = uf.TextBoxTENSAO
        .Cells(iTotalLinhas, 5).Value = uf.TextBoxMOTOR
        .Cells(iTotalLinhas, 6).Value = uf.TextBoxITEM
        .Cells(iTotalLinhas, 7).Value = uf.TextBoxDESCRIÇAO
        .Cells(iTotalLinhas, 9).Value = uf.DTPickerE
        .Cells(iTotalLinhas, 11).Value = uf.DTPickerD
        .Cells(iTotalLinhas, 13).Value = uf.DTPickerT
    End With
    Range("A1").Select
End Sub

Veja se atende a sua necessidade.
Espero ter ajudado.

Abraço