Спасибо всем за ответы!
Вот что получилось:

Способ 1. Для ячейки A1 изменяем формат на текстовый и в Module вставляем:

Sub macros1()
[a1]=Cstr("213213213213213213213213213213131")
End Sub

Именно "213213213213213213213213213213131" в кавычках, а то vba сам меняет ваше значение на
на 6.51156516516156E+40

Способ 2.
Для ячейки A1 изменяем формат на текстовый и в Module вставляем:

Sub macros2()
Dim a1 as String
a1="213213213213213213213213213213131"
Cells(1, 1).Value = a1
End Sub