Sum array then pasting it in another workbook

[Vbanoob98]

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 them on colunmn I of the workbook.

Anyone has any clue on how to do this? Many thanks!!

 

[mohadin]

Hi
try this metod
as ex:

arr1 = Range("e13:e21")
arr2 = Range("e23,e31")
result = WorksheetFunction.Sum(arr1) + WorksheetFunction.Sum(arr2)