Experimente:
altere a rotina salvaregistros conforme abaixo:

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastro
        .Cells(indice, colCodigo).Value = id
        .Cells(indice, colNome).Value = Me.txtNome.Text
        .Cells(indice, colMorada).Value = Me.txtMorada.Text
        .Cells(indice, colDataInscricao).Value = Me.txtNumero.Text
        .Cells(indice, colCodPostal).Value = Me.txtCodPostal.Text
        .Cells(indice, colCCidadao).Value = Me.txtCCidadao.Text
        .Cells(indice, colContribuinte).Value = Me.txtContribuinte.Text
        .Cells(indice, colDireitos).Value = CDbl(VBA.Replace(txtDireitos.Text, " €", ""))
        .Cells(indice, colData).Value = VBA.CDate(Me.txtData.Text)
        .Cells(indice, colRecibo).Value = Me.txtRecibo.Text
    End With