Sub ProsessXLS(fPath As String, b As Workbook, n As Integer)
Dim b1 As Workbook 'анализируемая книга
Dim sh1 As Worksheet    'анализируемый лист1
Dim sh2 As Worksheet    'анализируемый лист2
Dim sh1b As Worksheet   'листы текущей книги
Dim sh2b As Worksheet   'листы текущей книги
Dim i, j, pozM As Single
Dim Dt As Date
Dim CelMax As Integer 'Range

Set b1 = Application.Workbooks.Open(fPath, False)
Set sh1b = b.Sheets( 1 )
Set sh2b = b.Sheets( 2 )
Set sh1 = b1.Sheets("Форма #1")
Set sh2 = b1.Sheets("Форма #2")
'On Error Resume Next
    'ищем дату в заголовке в файлах
'переменнолй pozM надо передать номер колонки, в которой находится "01.10.08" (или Dt)
    'Dt = sh1b.Cells(1, 1) '.Value
    pozM = sh1.Rows( 3 ).Find(What:="01.10.08", LookIn:=xlValues, LookAt:=xlWhole).Column
    'Range("d3:k3").Find(What:=Dt, LookIn:=xlValues, LookAt:=xlWhole)
    'pozM = CelMax.Column
j =  1 
For i =  3  To  49 
    sh1b.Cells(j, n).Value = sh1.Cells(i, pozM).Value
    j = j +  1 
Next i
j =  1 
For i =  3  To  26 
    sh2b.Cells(j, n).Value = sh2.Cells(i, pozM +  1 ).Value
    j = j +  1 
Next i
sh1b.Cells( 50 , n) = b1.Sheets("Заявка").Cells( 3 ,  3 )
sh2b.Cells( 27 , n) = b1.Sheets("Заявка").Cells( 3 ,  3 )

Application.Workbooks(b1.Name).Close False

Set sh2 = Nothing
Set sh1 = Nothing
Set sh1b = Nothing
Set sh2b = Nothing
Set b1 = Nothing

End Sub