VBA para identificar o tipo de dado da célula

Objetivo: Identificar qual o tipo de dado de cada célula na coluna A.

Conforme a dúvida da leitora Magna, criei uma procedure no VBA que faz um loop entre os dados desta lista e identifica se o dado é Texto, Número ou Fórmula, e se for fórmula extrai esta informação.

Abaixo o código fonte da procedure em VBA.

Public Sub lsIdentificaCelulas()
    Dim iTotalLinhas    As Long
    Dim lContador       As Long
    
    lContador = 1
    Range("A1").Select
    Selection.End(xlDown).Select
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

    While iTotalLinhas > lContador
        If Left(Cells(lContador, 1).Formula, 1) = "=" Then
            Cells(lContador, 2).Value = "Formula: " & Cells(lContador, 1).Formula
        Else
            If IsNumeric(Cells(lContador, 1)) Then
                Cells(lContador, 2).Value = "Numeric"
            Else
                Cells(lContador, 2).Value = "Text"
            End If
        End If
        lContador = lContador + 1
    Wend
End Sub

Faça o download do exemplo pronto clicando no botão abaixo: