Непонятно, зачем делать вычисления в Excel, а потом переносить в Word. Модно было бы в Ворде макрос написать.  
Ну да ладно. Мой вариант, без цикла.  
 
Sub Tabul1()  
Dim startCell As Range, wDoc As Object  
Set wDoc = CreateObject("Word.Document")  
Set startCell = Cells([startRow], 1)
startCell = [rangeStart]
startCell.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=[step], Stop:=[rangeEnd], Trend:=False
Range(startCell, startCell.End(xlDown)).Offset(, 1).FormulaR1C1 = "=cos(RC[-1])"
Range(startCell, startCell.End(xlDown)).Select  
Range(Selection, Selection.End(xlToRight)).Copy  
wDoc.Range.Paste  
wDoc.Parent.Visible = True  
Application.CutCopyMode = False  
End Sub

Создать таблицу зависимости y=f(x), задав самостоятельный шаг и пределы табулирования, а затем построить график функции y=f(x).  
вот моя функция:    
мне ее надо протабулировать