Загрузка данных

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target.Row < 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub

    Application.EnableEvents = False

    Target.NumberFormat = "@"
    Target.Value = "2051087882558"

    Target.Offset(1, 0).Select

    Application.EnableEvents = True

End Sub