For Each Item in collection don't include last line if the line is not terminated by new line

I've put the macro in Macro Library. If you find to correct ar make better, I will be happy to learn.