macro to automatically change things

[macropod]

Once again, the format of the document you have posted is different from what the macro is designed to work with. Evidently it is a portion of Isaiah. The macro requires chapters to begin with strings like:
HOOFDSTUK. 1
2e HOOFDSTUK.
3e HOOFDSTUK.
...
24de HOOFDSTUK.
but what your latest attachment has is:
JESAJA 43
JESAJA 44
...
JESAJA 49
You can change these to the correct format with a wildcard Find/Replace, where:
Find = JESAJA ([0-9]@)^13
Replace = \1 HOOFDSTUK.^13
Note, though, that the first chapter must begin with HOOFDSTUK. 1