Написать условие и экспорт

Приветствую ! Программа м в екселе по столбцу Е прогоняется цикл по поиску русских букв и заменой на английскую, в случае нахождения строка окрашивается в красный цвет и автоматически переноситься на другой лист + еще строчка с номером ,где была выявлена ошибка!
Вот в чем вопрос я написал в конце условия ActiveCell.Offset(1, 0).Activate ,чтобы при нахождения каждый раз на одну клетку ниже вставлялись данные, но есть данные ,где все правильно и получается например , 3 пустых строчки потом данные и опять, как сделать чтобы данные шли друг за другом за другим?!И еще увы не нашел может плохо юзал поиск ,как перенести данные в ворд в форме таблицы(типа такие ошибки в документе)?!