вот посмотри тему, коротко и думаю для тебя  
http://www.myspreadsheet.info/metatrader4-dde-excel-2007-soxranenie-kotirovok-na-liste.html

у меня немного похожая тема вопроса потому отпишусь здесь!  
помогите изменить код чтобы копировались данные не с одной ячейки, а с 2 и более смежных ячеек. и также сохранялись  в смежных столбцах, как в примере?  
заранее благодарен  
'----------------------  
'создаем глобальную переменную для управления программой  
Public StartStop As Integer  
'----------------------  
'код для кнопки "Старт"  
Private Sub CommandButton1_Click()  
Dim PauseTime, Start  
Dim LastQuote As String  
'передаем переменной значение времени паузы  
PauseTime = UserForm1.TextBox1.Value  
'устанавливаем курсор на ячейку под которой будут записыватся данные  
Range("QUOTE_COLLECT").Select  
StartStop = 1  
'запускаем цикл обращения к ячейке с данными из дде  
Do While StartStop = 1  
'перемещаем курсор на одну ячейку вниз  
ActiveCell.Offset(1, 0).Select  
'записываем в переменную значение котировок  
LastQuote = Range("GBPUSD_QUOTE").Value  
'записываем в переменную значение текущего времени в секундах  
Start = Timer  
'запускаем цикл для задержки времени (по дефолту 1 секунда)  
Do While Timer < Start + PauseTime  
DoEvents  
Loop  
'спустя одну секунду, записываем значение котировок в нужном месте  
ActiveCell.Value = LastQuote  
'находимся в цикле пока переменная StartStop = 1  
Loop  
End Sub  
'--------------------------  
'код для кнопки "Стоп"  
Private Sub CommandButton2_Click()  
'передаем переменной значение 2 для остановки цикла  
StartStop = 2  
'закрываем форму  
Unload Me  
End Sub  
'--------------------------

ок! учту, спасибо, буду рыть