Sorry a little bit of a mix up here.

the format in a cell is row first and then column. So the cell format should be

rng = .Cells(r + 5, (4 * t) - c - 2)

but that still does not solve the problem that this "With" block is apparently not defined.

Thanks for any help.