How to add up two-dimensional arrays?
<p>My code runs trough dozens of excel documents, selects range and gives the range to an array. I would like to add up the arrays to get a summarized data then paste the result to an existing worksheet.
The formula should be something like this:</p>

<pre><code>rangeVar = oNewBook.Worksheets(1).Range("A1:D4").Value

sumRange = sumRange + rangeVar
</code></pre>

<p>Important! Some cells in the range is empty (I don't know is this matters). Also I would like to add up the values separately like sumRange(1,1)+rangeVar(1,1) ; sumRange(2,2)+rangeVar(2,2) , etc... How to do this?
You can check the code here:</p>

<pre><code>Sub LoopAllExcelFilesInFolder()

Dim OutputWs As Worksheet
Dim oNewBook As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim FldrPicker As FileDialog
Dim Lastrow As Long
Dim i As Integer, j As Integer
Dim summaryVar() As Variant
Dim rangeVar() As Variant

'Optimize Macro Speed
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual

'Retrieve Target Folder Path From User
  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

    With FldrPicker
      .Title = "Select A Target Folder"
      .AllowMultiSelect = False
        If .Show &lt;&gt; -1 Then GoTo NextCode
        myPath = .SelectedItems(1) &amp; "\"
    End With

'In Case of Cancel
NextCode:
  myPath = myPath
  If myPath = "" Then GoTo ResetSettings

'Target File Extension
  myExtension = "*.xlsx"

'Target Path with Ending Extention
  myFile = Dir(myPath &amp; myExtension)

'set output worksheet
  Set OutputWs = ThisWorkbook.Worksheets("Teszt")

'Loop through each Excel file in folder
  Do While myFile &lt;&gt; ""

    Set oNewBook = Workbooks.Open(myPath &amp; myFile)
    rangeVar = oNewBook.Worksheets(1).Range("A1:D4").Value
    oNewBook.Close

'Copy selected items
With OutputWs
    Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    OutputWs.Range("A" &amp; Lastrow &amp; ":" &amp; "D" &amp; Lastrow) = Application.WorksheetFunction.Sum(rangeVar)  'summaryVar
    Paste:=xlPasteAll, operation:=xlPasteSpecialOperationAdd, skipBlanks:=False
    Application.CutCopyMode = False
End With

'Get next file name
  myFile = Dir
  Loop

'Message Box when tasks are completed
  MsgBox "Task Complete!"

ResetSettings:
  'Reset Macro Optimization Settings
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub
</code></pre>