Вот включил запись макроса и создал стрелки  
 
Два варианта  
 
 
Sub Макрос1()  
Dim iShape As Shape  
     
   Set iShape = ActiveSheet.Shapes.AddLine(64.5, 103.5, 198.75, 179.25)  
   With iShape  
       .Line.EndArrowheadStyle = msoArrowheadTriangle  
   End With  
End Sub  
 
Sub Макрос2()  
Dim iShape As Shape  
   Set iShape = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 111.75, 98.25, 138.75, 35.25)  
   With iShape  
       .Line.EndArrowheadStyle = msoArrowheadTriangle  
   End With  
End Sub