Buenas tardes estimados,

tengo el siguiente código:
Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub


---
¿cómo puedo hacer para generar mi código correlativo de 5 digitos?