Sub Test()
Dim LO As ListObject
[A1:D1] = "=ADDRESS(ROW(),COLUMN(),4)"
[A2:D5] = "=(ROW()^COLUMN())*100"
[A1:D5] = [A1:D5].Value
Set LO = ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$5"), , xlYes)
MsgBox "test staple"
LO.ListRows.Add.Range = Array("Staple", 1600)
MsgBox "test job75"
LO.ListRows.Add.Range.Resize(, 2) = Array("Job", 75)
End Sub