Вам может показаться, что не проще ли просто вести архив уже на Листе2.  
Дело в том, что на Листе1 данные, вносимые в ячейки B, C и D служать основой для многих других вычислений.

... забыл указать  
 
На Листе2 последовательно по датам ведётся архив данных.  
По горизонтали: А1 - Дата, B1 - Яблоки, C1 - Груши, D1 - Сливы.  
Соответственно А2, А3 и т.д. - Даты.    
 
На Листе1 в ячейках:    
 
A1 указывается дата.  
 
A3 Яблоки B3 8  
A4 Груши B4 5  
A5 Сливы B5 10  
 
Нужен макрос, в результате которого данные из диапазона A3:B5 на Листе1, будут подставляться на Листе2 в ячейки из столбцов B.., C.. и D...    
 
Макрос должен уметь находить на Листе2 ячейки на пересечении строки с датой (А..) и соотвтетсвенно столбца B,C, и D СОГЛАСНО ТОЙ ДАТЫ, КОТОРАЯ УКАЗАНА В ЯЧЕЙКЕ А1 НА ЛИСТЕ1

Так?  
 
Sub Сохранить()  
Selecton.Copy  
Sheets("Лист2").Range("A1").PasteSpecial xlPasteAll, Transpose:=True  
Application.CutCopyMode = False  
End Sub  
 
Если да, то пишет ошибку (  
 
С кнопкой разобрался, большое спасибо!  
 
Что касается файла, нужно получить:  
 
Например:  
 
На Листе2 последовательно по датам ведётся архив данных.  
По горизонтали: А1 - Дата, B1 - Яблоки, C1 - Груши, D1 - Сливы.  
Соответственно А2, А3 и т.д. - Даты.      
   
На Листе1 в ячейках:    
 
A1 указывается дата.  
 
A3 Яблоки B3 8  
A4 Груши  B4 5  
A5 Сливы  B5 10  
 
Нужен макрос, в результате которого данные из диапазона A3:B5 на Листе1, будут подставляться на Листе2 в ячейки из столбцов B.., C.. и D...    
 
Макрос должен уметь находить на Листе2 ячейки на пересечении строки с датой (А..) и соотвтетсвенно столбца B,C, и D.

The_Prist, я сделал как Вы советовали и уже есть прогресс, спасибо, но, во-первых, как всё таки сделать кнопку, а не сочетание клавишь и , во-вторых, данные вставляются только в выделенные ячейки, а не конкретно заданные мной.  
 
Sub Сохранить()  
'  
' Сохранить Макрос  
'  
' Сочетание клавиш: Ctrl+й  
'  
   Range("A1:A2").Select  
   Selection.Copy  
   Sheets("Лист2").Select  
   ActiveSheet.Paste  
End Sub  
 
Вообще в конечном итоге мне нужно будет получить алгоритм представленный в файле, посмотрите, пожалуйста.  У меня получилось реализовать этот принцип, но только без "кнопки" сохранить вставить.    
 
**********  
wayfarer, извините, но я всё равно не понял )

Уважаемый Z,  
 
я Вас не понял.  
 
что нужно сделать?

Добрый день! )  
 
Прошу помочь.  
 
Задача:  
 
Лист1  
в A1 вписываю "Яблоко"  
в А2 вписываю "Груша"  
 
нужна кнопка "Сохранить", при нажатии которой содержимое ячеек A1 и А2 на Листе1 сохраняется в ячейки А1 и В2 на Листе2.    
 
При этом на Листе1 данные не исчезают.  
 
 
Догадываюсь, что задача тривиальна, но искать ответ по форуму уже устал ).  
 
Прошу помочь :)

Всё оказалось очень просто!  
 
Спасибо большое Дъмитръ :)  
 
Дело в том, что я скачал надстройку PLEX, в которой есть отдельная кнопка, я и не ожидал, что это можно сделать через "Специальную вставку".  
 
Ещё раз спасибо!

Добрый день! )  
 
Подскажите, пожалуйста, алгоритм, при котором содержимое ячейки, в которой отображается результат той либо иной формулы, можно было бы перевести в текст.  
 
Пример:  
 
A1 2  
A2 2  
A3 = A1*A2    
 
т.е. в А3 отображается 4  
 
мне нужно скопировать информацию из A3 в виде текста (в частности, цифру 4).