The formula I have is the following:
Inarr: Range("A1:J57")
With Workbook("book.xlsx").Worksheet("All")
loLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A") & loLastRow) inarr(43, 7)
So thats great for single cells. Now I have to take cells E13:E21 + E23:E31, sum them and then paste...