Antes de inserir qualquer valor na coluna / célula, altere o formato da célula para Text
.
Ou, coloque isso no módulo de código de pasta de trabalho para forçar essa formatação em todas as planilhas, sempre que a pasta de trabalho for aberta.
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Me.Sheets
sh.Cells.NumberFormat = "@"
Next
End Sub