[vba]

For Counter = 2 To (CountCallsAgainst + 1)

With wsAdd
.Cells(Counter, 1).Value = myCallsAgainst((Counter - 1), 1)
.Cells(Counter, 2).Value = myCallsAgainst((Counter - 1), 2)
.Cells(Counter, 3).Value = myCallsAgainst((Counter - 1), 3)
.Cells(Counter, 5).Value = "=SUMIFS(EXP,NUM,A2,CUSIP,""371488AG2"")"

End With

Next Counter
[/vba]