Predpokladám, že overenie bunky na alfanumerický obsah si zvládol podľa toho predchádzajúceho odkazu.

Funkcia pre orezávanie textu po vložení do stĺpca A by mohla pre začiatok vyzerať takto:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Dim aCell As Range
    
    Set aRange = Intersect(Target, Range("A:A"))
    If Not aRange Is Nothing Then
        For Each aCell In aRange
            If Len(aCell) > 35 Then
                aCell.Value = Mid(aCell, 1, 35)
            End If
        Next
    End If
End Sub