Выделение ячейки и диапазона ячеек одновременно

[tigrusha]

Добрый день.

Задача следующая.
после прыжка с 1-ой ячейки строки на 4 вправо, оставить выделенной 1-ую ячейку строки. Потом выделить диапазон с 4-ой ячейки вправо, оставив при этом 1-ую строку выделенной.

Например, нужно выделить А1,Е1:до ячейки, где есть данные.

как доработать код?

Спасибо

ActiveCell.Select  
   Selection.End(xlToLeft).Select  
  Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
  Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
    Selection.End(xlToLeft).Select  
  Selection.End(xlToLeft).Select  
    Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   Selection.End(xlToLeft).Select  
   ActiveCell.Offset(0, 4).Select  
    Range(Selection, Selection.End(xlToRight)).Select

[Hugo121]

Зачем нужно выделять? 99% действий можно сделать без выделения.

[IgorGO]

есть 3 простых вопроса:

1. в Е1 есть данные

2. до какой ячейки вправо?
2.а) до первой с данными
2.в) до первой пустой

3. найденную ячейку?
3.а) Включаить в диапазон
3.в) НЕ включать в диапазон

[Казанский]

многостаночник мля http://www.cyberforum.ru/vba/thread1532461.html

[IgorGO]

Леша, а вот и не угадал)))

очень сомнительно что "многостаночник" взял себе ник "tigrusha"
хотя..., конечно, в жизни бывает всякое, но тут, думаю, многостаночница