[andrevk]

Пишите функцию ColumnName преобразования номера столбца с типом Integer в Text
и вызывайте ее при Range(ColumnName(j) +':'+ColumnName(j)).delete