Cómo obtener los primeros dígitos en una macro de Excel

Sub AAA()

Dim LastRow As Long

LastRow = Worksheets("Sheet11").Range("B65536").End(xlUp). Fila

Para i = 1 hasta la última fila

Hojas de trabajo("Hoja1").Celdas(i, 1) = "'" & Left(Hojas de trabajo("Hoja11").Celdas( i, 2), 12)

Siguiente i

End Sub

No conozco la situación específica, pero probablemente esta sea la idea.