Function Kreiptis(Vardas As String) As String
Kreiptis = Vardas
If InStr(1, Vardas, " ") = 0 Then
   If Right(Vardas, 2) = "as" Then Kreiptis = Left(Vardas, Len(Vardas) - 
2) + "ai"
   If Right(Vardas, 2) = "us" Then Kreiptis = Left(Vardas, Len(Vardas) - 
2) + "au"
   If Right(Vardas, 2) = "is" Then Kreiptis = Left(Vardas, Len(Vardas) - 
2) + "i"
   If Right(Vardas, 2) = "ys" Then Kreiptis = Left(Vardas, Len(Vardas) - 
2) + "y"
   If Right(Vardas, 1) = "ë" Then Kreiptis = Left(Vardas, Len(Vardas) - 
1) + "e"
End If
End Function

Dar nei karto nepramazino. Jei užsienietiškas ir neatitinka lietuviško, 
tai arba lietuvinam arba nelinksniuojam - čia taisyklė. T.y. Bynas - 
Bynai, Byn - Byn.
todėl geriausia kreiptis "Gerb. p. XXXX" ir Gausim "Gerb. p. Byn"

Formulė išbandyta ant maždaug 300-400 tūkst. adresatų, nei vienas 
nesiskundė...

Čia tik iš excelio, jei reikia galiu paduoti dar pythonu ar c++