Experimente:

Bom dia!!

Talvez uma outra forma.

Option Explicit

Sub Macro3()

    Dim StrNewEnc As String
    Dim PriorYear As String

    PriorYear = Left(Range("Tabela1").Cells(Range("Tabela1").Rows.Count, "B"), 2)
    If PriorYear <> Range("D3") Then
        Range("D4") = 0
    End If
    
    StrNewEnc = Range("D3") & "-" & Format(Range("D4") + 1, "0000")
    
 
    Range("Tabela1").Cells(Range("Tabela1").Rows.Count + 1, "B") = StrNewEnc

    Range("Tabela1").Cells(Range("Tabela1").Rows.Count, "B").Select
    Range("Tabela1").Cells(Range("Tabela1").Rows.Count, "A") = 50
    
'    Range("A10").Select
'    ActiveWorkbook.Worksheets("Folha1").ListObjects("Tabela1").Sort.SortFields. _
'        Clear
'    ActiveWorkbook.Worksheets("Folha1").ListObjects("Tabela1").Sort.SortFields.Add _
'        Key:=Range("Tabela1[[#All],[!]]"), SortOn:=xlSortOnValues, Order:= _
'        xlAscending, DataOption:=xlSortNormal
'    With ActiveWorkbook.Worksheets("Folha1").ListObjects("Tabela1").Sort
'        .Header = xlYes
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
'        .Apply
'    End With
    
    'procurar onde esta a nova linha inserida depois de ordenar
'    Columns("B:B").Select
'    Cells.Find(What:=StrNewEnc, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
'    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate

    Range("D4") = Range("D4").Value + 1
    
End Sub

Att

Boa tarde,
Peço desculpa pela demora em dar feedback e também, em parte por simplificar demasiado a tabela exemplo

Eu realmente não estava a contar com uma maneira completamente nova de inserir e ordenar a linha nova, por isso também me esqueci de mencionar que a ultima linha não é necessariamente a ultima encomenda inserida!!
Na mesma tabela, tenho as encomenda por produzir, ordenadas por, 1º por prioridades e 2º por data solicitada do mais antigo para o mais recente. Quando a encomenda é produzia, eu apago a prioridade (deixa de a ter) e insiro a data/hora de produção e essa segunda parte da tabela é ordenada precisamente por data de produção, do mais antigo para o mais recente…

Ou seja, quando insiro uma nova encomenda, quero que ela fique no final das encomendas que estão ainda por produzir mas em cima das já produzidas e como estou constantemente a ordenar prioridades e a filtrar, por exemplo, as encomendas o mês anterior que já não quero ver na lista corrente, o nº da ultima encomenda inserida nunca esta no mesmo sitio!!

Tentei adaptar a vossa sugestão mas tive de usar na mesma as linhas de filtro e ordenar escritas no modo "gravar macro" e mesmo assim n resulta porque ele vai comparar com o nº de encomenda que esta no final da lista!!
Tem outra forma?

Obrigado uma vez mais..

Bom dia!!

Mais alguma sugestão? só para saber se fecho o tópico ou não!!
Obrigado