You sir are my hero! Adjusted the range in rtest to Set rtest = ActiveSheet.Range(ActiveSheet.Range("H55"), ActiveSheet.Range("BP85").End(xlToRight)) and now it works perfectly!

Thank you so much, have been searching for the solution for days, will keep this trick in mind.