Lench, я тебе скриптов по VBA пришлю, только скажи...

Public Function BEx() As BExApplication
Set BEx = Application.Run("BExAnalyzer.xla!GetBEx", ThisWorkbook)
End Function

Sub Formula (queryID As String, resultArea As Range)
Dim Row As Integer
Dim Col As Integer

Dim RowCopy As Integer
Dim ColCopy As Integer

Dim numcells As Integer

Dim i As Integer
Dim Str As String
Dim WCell As Range



numcells = resultArea.Worksheet.Cells.Count


Select Case queryID
Case "DP_2"

Row = resultArea.Worksheet.Cells(numcells).Row + 1
Col = resultArea.Worksheet.Cells(1).Column

RowCopy = resultArea.Cells(1).Row + 5
ColCopy = resultArea.Cells(1).Column

Set WCell = resultArea.Cells(RowCopy, ColCopy)

If Not (WCell Is Nothing) Then

Str = resultArea.Cells(RowCopy, ColCopy).Value
i = InStrRev(Str, ",")

If i > 0 Then
Str = Right(Str, Len(Str) - i - 1)
resultArea.Worksheet.Cells(Row, Col).Value = "'" + Str
End If
End If
End Select
End Sub

Integer variables are stored as 16-bit (2-byte) numbers ranging in value from -32,768 to 32,767.
Может, недостаточно для resultArea.Worksheet.Cells.Count - т.е. кол-во ячеек больше 32 767? Потому и overflow.
Dim numcells As Long Вам поможет.

Обнуление переменных после их объявления никому никогда ещё не вредило, numcells = 0, далее по тексту

Ну и лучше назвать разные листы книги по-разному, и явно обращаться по имени к каждому.

Он должен был "присоединять" таблицу со второго листа экселя снизу к таблице с первого листа.
Шапка обеих страниц - 5 строк.

Если надо разместить один запрос под другим, просто перенесите одну resultArea под другую (можно обе вообще на третий лист), и будет Вам счастье

Неплохо бы еще заголовок у присоединяемой таблицы вырезать