{quote}{login=}{date=08.11.2011 11:04}{thema=}{post}А попробуйте в свободном месте ввести -1, скопируйте ее, выделети Ваш диапазон, правым мышом - СПЕЦИАЛЬНАЯ ВСТАВКА УМНОЖИТЬ. Должно получиться счастие:){/post}{/quote}  
 
Вот, как раз от проделываемых процедур счастия и не получается. )))  
Ваш вариант по времени и монотонности схож с вышеописанным мной.  
За вариант, Спасибо

{quote}{login=Юрий М}{date=08.11.2011 11:57}{thema=}{post}Запишите рекордером эти действия для выделенного диапазона и не будет монотонности.{/post}{/quote}  
 
Спасибо. Сделал так  
   Range("C1").Select  
   Selection.Copy  
   Range("A1:A2").Select  
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _  
       SkipBlanks:=False, Transpose:=False  
но не хватает знаний, на счёт того, что бы в коде обойтись без 1-ой, 2-ой и 3-ей строки, т.е. по умолчанию умножалось на "-1"

{quote}{login=GIG_ant}{date=08.11.2011 12:14}{thema=}{post}Попробуйте так:  
 
Sub Макрос1()  
Dim r As Range  
For Each r In Selection: r = -r: Next r  
End Sub{/post}{/quote}  
 
Большое спасибо. Как раз то, что подразумевал.