A Cells(i, k).Select -et is lehetne használni a range... helyett és így lehet egyszerűen növelni.