Visual Basic - Visual basic y excel

Estimado
Urgente necesito saber como mejorar la repidez del llemado de una planilla excel.

Tengo un recordset que estoy pasando a una planilla Excel, pero se demora mucho, existe alguna manera mas rapida ?
GRacias... envio codigo

La cantidad de filas que posee este recordset es de 32.000 aproximadamente, tal cual esta el programa para 1000 filas no tiene problema.

Me gustaria saber como lo hace Microfoft Query ya que este si lo hace mas rapido que mi aplicacion, pero a los usarios no se les puede instalar este elemento del office (Por politica de la empresa)

Esperando una buena respuesta te agradesco desde ya Gracias....

Private Sub Command2_Click()
Set RsMaeitein = New ADODB.Recordset
RsMaeitein.Open \"Select codigo,descor,marca,stotra,estado,codbar,from sa.Maeitein Where Indsel=\'S\' Order by Codigo\", Coneccion, adOpenDynamic, adLockOptimistic

Set ApExcel = CreateObject(\"Excel.application\")
ApExcel.Visible = True
ApExcel.Workbooks.Add
RsMaeitein.MoveFirst
ApExcel.Cells(1, 1).Formula = \"Codigo\"
ApExcel.Cells(1, 2).Formula = Descripcion
ApExcel.Cells(1, 3).Formula = Marca

Intenta sin poner la aplicacion como visible. Lo que demora no es el cargado sino el refresco de pantalla que se hace luego de cada adicion. Saludos.