Sub Sowas()
Const c_FULL As String = "E:\Temp\Export\*.xlsx"
Dim strfile As String, strFull As String
Application.ScreenUpdating = False
ThisWorkbook.Sheets(1).Range("D4:V107").Clear
strfile = Dir(c_FULL)
While (strfile <> "")
strFull = Replace(c_FULL, "*.xlsx", strfile)
sbGetValues strFull
strfile = Dir
Wend
Application.ScreenUpdating = True
End Sub
Private Sub sbGetValues(strPath As String)
Dim c As Range
Workbooks.Open strPath
For Each c In ActiveWorkbook.Sheets(1).Range("D4:V107").Cells
With ThisWorkbook.Sheets(1).Range(c.Address)
.Value = .Value + c.Value
End With
Next c
ActiveWorkbook.Close False
End Sub