在工作表中循环单元格，以使用VBA向每个单元格添加形状

我是VBA新手，正在尝试在表中每隔一列添加一个箭头。我收到错误：

对象“\u global”的方法“range”失败

我应该怎么做才能修复它

Sub-loop1（）
'循环圆范围P6:AA10
作为整数的Dim i
作为整数的Dim j
将k变为整数
对于i=9到14
对于j=6到10
k=（i*2）-1
ActiveSheet.Shapes.AddShape（MSOShaperRightArrow，范围（单元格（j，k））。左+2_
范围（单元格（j、k））。顶部+3、15、10。选择
下一个j
接下来我
端接头

删除范围（），看起来像.Left和.Top是单元格的属性，而不是范围对象。此代码在Excel 2010上为我运行：

Sub loop1()
    'Loop round range P6:AA10
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer


    For i = 9 To 14
        For j = 6 To 10
            k = (i * 2) - 1
            ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Cells(j, k).Left + 2, _
                Cells(j, k).Top + 3, 15, 10).Select
        Next j
    Next i
End Sub