Dim App As Object
Dim Wkb As Object
Dim Sht As Object
Dim rst As Recordset
Dim intCountObj As Integer
Dim strFileName As String

strFileName =  "C:\Форма11.xls"  'имя сохраняемого файла Excel
'получение recordset с данными и количества строк
Set rst = CurrentDb.OpenRecordset( "ЗапросДляОтчета" )
 If rst.RecordCount >  0  Then
     rst.MoveLast
     intCountObj = rst.RecordCount
 Else
     MsgBox  "Отчет пуст!" 
     Exit Sub
 End If


Set App = CreateObject( "Excel.Application" )
Set Wkb = App.Workbooks.Open( "C:\Shablon\Форма11.xlt" )
Set Sht = Wkb.Sheets( 1 )

'заполняем (А18, к примеру, первая строка для данных)
Sht.Range("A18").CopyFromRecordset rst

'а если нужно с группами и прочими красивостями, тут нужны
'скорее циклы по рекордсету, а не CopyFromRecordset

' -----------форматируем лист------------------------
 

With Sht.Range( "A18:H"  & Trim(Str(intCountObj +  17 )))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
'опущено для остальных сторон ячеек
'.............
.Font.Size =  9 
.VerticalAlignment = xlCenter
.WrapText = True
End With

Sht.Range( "A"  & Trim(Str(intCountObj +  20 ))) =  "Начальник" 
Sht.Range( "H"  & Trim(Str(intCountObj +  20 ))) =  "Пупкин" 

'Сохраняем и закрываем, если уже есть - грохнем
If Not Dir(strFileName) = "" Then
    Kill (strFileName)
End If

Wkb.SaveAs (strFileName)
Wkb.Close
App.Application.Quit