Pad with 6 leading zeros, then use right most 6 digits:
Cells(2, 13 + iCtr).Value = Right("000000" & Hex(cellKValue + iCtr), 6)