How to bulk replace last digit in LibreOffice Calc spreadsheet column cells?

Question

Macros

I have a LibreOffice Calc (ODS) spreadsheet. It has over 900 lines. Column A contains serial codes like '8UIS34561144', '8UIS34986524', '8UAA34021494', etc.
All serial codes are 12 characters long, but they all end with a check digit 4. I need to replace this digit with the number 1 in all serial codes.
How can I do this with a macro?

Answer 1

Thank you all, the macro was not required - it cost the "find and replace" function and regular expressions:
https://help.libreoffice.org/Common/List_of_Regula...