Дима спасибо за отклик,  
 
Как передать переменной TempOfRange значения мне понятно.  
Вопрос в том как вернуть эти значения в другой диапазон, на другом листе, другой книги.

{quote}{login=VovaK}{date=01.10.2009 10:51}{thema=}{post}Понял свою ошибку - Set нужен только для переменной.{/post}{/quote}  
 
Set нужен только при присвоении значения ОБЪЕКТУ (например, объектам типа Range, Worksheet, Workbook и т.п.)  
 
При присвоении значений обычным переменным (текстовым, числовым и т.п., в т.ч. массивам) Set не используется.

{quote}{login=VovaK}{date=01.10.2009 11:07}{thema=}{post} пишу:  
Set ThisWorkBook.Sheet(1).Range(Cells(1,1),Cells(7,19)).Value = TempOfRange.Value{/post}{/quote}  
Сначала пишем Set, затем ЧТО устанавливаем, затем чему оно равно

Все-таки куда проще нажать F1 на слове Set и узнать, что присваивается ссылка(!) на объект(!). И посмотреть пример:  
Dim YourObject, MyObject, MyStr  
Set MyObject = YourObject    ' Assign object reference.  
' MyObject and YourObject refer to the same object.  
YourObject.Text = "Hello World"    ' Initialize property.  
MyStr = MyObject.Text    ' Returns "Hello World".  
 
 
.Value - это уже property ему нельзя назначить ссылку.  
можно так  
Set MyObject = TempOfRange.Value  
или так  
Set  MyObject = ThisWorkBook.Sheet(1).Range(Cells(1,1),Cells(7,19)).Value    
 
будет ссылка на значение.  
бессмысленная и беспощадная :)