There is a small error in my last macro
This is wrong
Code:
    For Cnt = 2 To Jmax
It should be
Code:
    For Cnt = 2 To Lr1 ' Jmax