Копировать с помощью макроса
 

Здравствуйте господа. Перерыл кучу форумов, вообщем сам не разобрался. И так к делу.Мне нужна функция макроса для копирования содержимого из выделеной (выбраной) ячейки + соседних одной или двух(справа) с одного листа на другой лист. При чём, чтоб на втором листе функция сама определяла если первоначальная ячейка занята то копировать в первую свободную снизу.В майкрософт офис она выглядит такSub Test() Selection.Resize(, 4).Copy Worksheets("1").Columns(3).Cells(Workshe ets("1").Rows.Count).End(xlUp).Offset(1) End SubПомогите люди добрые кто чем может. Подскажите как её сделать.