Descomponer numero en factores primos con VBA

Descomponer numero en factores primos
El siguiente código VBA realiza la descomposición de números en factores primos en una hoja Excel en forma de lista. Mas adelante, podrán ver una imagen que muestra la forma como se muestra ejecutado y un enlace a YouTube con la programación.

Procedimiento Sub:

Sub Descomponer_Factores_Primos()
Dim D As Double
Dim C As Long
Dim L As Integer
Dim E As Integer
Dim N As Double
Dim I As Double
Dim T As Double
Dim V As Double


With Hoja1

.Cells.Clear
D = 2
C = 2
L = 3
E = 0

    N = Application.InputBox("COLOQUE EL VALOR")
 
    For I = 2 To N
     
        T = I
        L = 3
        D = 2
        E = 0
        C = I
     
     
        Do Until T = 1
        If T Mod D = 0 Then
         
         
            .Cells(I, 1) = I
         
            V = T / D
            T = V
            E = E + 1
            C = C + 1
        Else
     
            If E > 0 Then
         
                    .Cells(I, L) = D & "^" & E & "  ."
         
            E = 0
            L = L + 1
        End If
         
     
            D = D + 1
         
        End If
        Loop
     
                    .Cells(I, L) = D & "^" & E


    Next I
 
 
        .Columns("A:XFD").AutoFit

End With


End Sub