Io ho capito che deve posizionare il cursore nella cella in colonna "B" dell'ultimo inserimento...e dato che c'è di mezzo un ordinamento tramite Sort la cosa forse si complica.

Prova ad aggiungere questo pezzo di codice in mezzo a Loop While MsgBox("Vuoi inserire un altro codice?", vbYesNo + vbQuestion, "PROSEGUO O ESCO?") = vbYes e Exit Sub

'....
'....
'Loop While MsgBox("Vuoi inserire un altro codice?", vbYesNo + vbQuestion, "PROSEGUO O ESCO?") = vbYes

Set CellaW = Range("A:A").Find(What:=Codice, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not CellaW Is Nothing Then
    Cells(CellaW.Row, "B").Select
End If

'Exit Sub
'....
'....

in pratica andiamo a ricercare la cella dell'ultimo codice inserito all'interno della colonna "A" e poi da li ricaviamo il rigo e a quel punto selezioniamo la cella in colonna "B"

Hai provato il pezzo di codice che ho pubblicato? Devi copiarti da Set CellaW =... fino a End If e lo devi inserire tra Loop While MsgBox e Exit Sub

Nel macro del pulsante "Inserisci" aggiungi queste 2 variabili subito dopo Private Sub cmdInvia_Click()

Dim contatore As String
Dim rigaDebitore As Variant

poi al posto di If TxtContatore = "" Then ci metti:

contatore = TxtContatore.Value

If contatore = "" Then

infine, prima di End Sub (quindi siamo alla fine) ci metti questo:

On Error Resume Next
rigaDebitore = Application.Match(CDbl(contatore), ActiveSheet.Range("A:A"), 0)
On Error GoTo 0

If Not IsError(rigaDebitore) Then
    Range("B" & rigaDebitore).Select
End If

Vedi se funziona come vorresti.

Onestamente mi sento di dirti che ci sono diversi errori strutturali nel codice. Assenza della dichiarazione esplicita delle variabili (Option Explicit), presenza eccessiva di ActiveCell, ElseIf, dichiarazioni di variabili errate (così come le dichiari sono tutte di tipo Variant, il ché comporta oltre che uno spreco di memoria ma anche di eventuali errori di interpretazione da parte del compilatore). Insomma si potrebbe fare molto meglio...