macro to remove text after 250 characters?

Hello everyone. I am looking for a macro that can go down column AH and deleted any content in the cells that comes after 250 characters.

For example if AH1 has a paragraph and the cell contains 300 characters. The macro will just delete all content after 250th character.

The last row in the column will always varry. Some sheets have 29k rows or more, some sheets have 30 rows.

Appreciate the help!

That would not work for what I need it for. It would have to be a macro where it does not have to be done manually. It will be used in a preexisting macro.

FWIW:

Please Login or Register  to view this content.

How would I add a rule to have this macro run for a specific sheet named "test1" ?

Maybe:

Please Login or Register  to view this content.