VBA子过程或函数未定义，是哪里有问题？

Sub 批量插入图片()
Selection.WholeStory
Selection.Delete
Me.Tables.Add Range(0), 2, 2, 9 ... For j = 1 To 2
On Error Resume Next
.Cell(i - 1, j).Range _
.InlineShapes.AddPicture p & f
Me.Tables(1).Cell(i, j).Range = f
f = Dir
Next
n = .Rows.Count + 1
.Rows.Add
.Rows(n).Height = .Rows(1).Height
.Rows.Add
.Rows(n + 1).Height = .Rows(2).Height
j = 0
Loop
End Sub