Access - Centrar celdas

Estimados
Buenas tardes. Tengo el siguiente codigo con el cual envio la info de una tabla temporal a un excel ya armado.
el problema es no puedo centrar las celdas que quiero.
Paso el codigo para que me lo revisen y me orienten. MUCHAS GRACIAS

Private Sub Exportar_Click()
On Error GoTo sol_err
'Declaramos las variables
Const nombreHoja As String = "Profesionales" 'Aquí indicamos el nombre de la hoja existente en el Excel
Const nombreTabla As String = "diprdep5" 'Aquí indicamos el nombre de la tabla o consulta con datos a exportar
Dim miExcel As Excel.Application
Dim rutaExcel As String
Dim i As Long, j As Long
Dim fld As Field
Dim rst As Recordset

' Creo la tabla con datos filtrados temporal
If Me.DNI <= 0 Or IsEmpty(Me.DNI) Or IsNull(Me.DNI) Then
CurrentDb.Execute "DELETE FROM Tbl_Auxiliar", dbFailOnError
MsgBox "No existen datos para exportar", vbExclamation, "SIN DATOS"
Else
CurrentDb.Execute "INSERT INTO Tbl_Auxiliar SELECT * FROM DIPRDEP5 WHERE dni = " & Me.DNI & "", dbFailOnError

'Construimos la ruta del Excel
rutaExcel = Application.CurrentProject.Path & "\Diepregp5.xls"

'Creo el recordset sobre la tabla
Set rst = CurrentDb.OpenRecordset(nombreTabla)
'Si no hay registros en la consulta salimos
If rst.RecordCount = 0 Then
MsgBox "No existen datos para exportar", vbExclamation, "SIN DATOS"
Exit Sub
End If
'Creo el objeto Excel
Set miExcel = CreateObject("Excel.Application")
'Lo hago no visible
miExcel.Visible = False
'Abro el Excel seleccionado
miExcel.Workbooks.Open rutaExcel, True, False
'Sitúo el cursor en el reloj de arena porque el proceso puede ser largo
DoCmd.Hourglass True
'Inicializamos i y j
i = 0
j = 0
'Nos movemos al primer registro
rst.MoveFirst
'Iniciamos el proceso
Do Until rst.EOF
miExcel.Worksheets(nombreHoja).Range("A16:az20000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Limpio los datos para cargar nuevos
'Recorremos los campos de la tabla o consulta
For Each fld In rst.Fields
miExcel.Worksheets(nombreHoja).Range("A16:b16").HorizontalAlignment = xlCenter 'Aqui busco centrar estas celdas
miExcel.Worksheets(nombreHoja).Range("A16").Offset(i, j).Value = rst.Fields(fld.Name).Value

'Aumentamos una columna
j = j + 1
Next fld
'Aumentamos una fila
i = i + 1

'Reinicializamos j
j = 0
'Nos movemos al siguiente registro
rst.MoveNext

Loop
'Volvemos a situar el puntero en su posición normal
DoCmd.Hourglass False
'Lanzamos un mensaje de confirmación
MsgBox "Exportación realizada correctamente", vbInformation, "CORRECTO"
'Guardamos el Excel y lo cerramos
miExcel.ActiveWorkbook.Save
Salida:
miExcel.Workbooks.Close
miExcel.Application.Quit
Set miExcel = Nothing
Application.FollowHyperlink rutaExcel
Exit Sub
sol_err:
'Volvemos a situar el puntero en su posición normal
DoCmd.Hourglass False
'Gestionamos los errores error que pudieran producirse
Select Case Err.Number
Case 9 'No existe la hoja
MsgBox "La hoja donde se quieren exportar los datos no" _
& " existe en el Excel", vbCritical, "ERROR"
Case 1004 'No existe el Excel
MsgBox "El Excel donde quiere exportar los datos no existe", _
vbCritical, "ERROR"
Case Else
MsgBox "Se ha producido el error " & Err.Number & " - " & Err.Description, _
vbCritical, "ERROR"
End Select
Resume Salida
End Sub

perdon es Combinar no centrar

Gracias ya lo solucione.