Why do you go up, I would have thought you would want to go down.

Not tested, but try this

 With CTOF.Range("B1").End(xlDown).Offset(4, 0)
in both instances