Access - Datos de Access a Excel

Hola a todos, espero de su ayuda....por favorrrrrr....
Les comento, tengo un formulario que realiza una consulta SQL.

SQL= "Select numero, nombre from TABLA where fecha="& fecha

y esta me funciona bien, ya que en el formulario tengo el campo fecha, coloco una fecha cualquiera luego presiono el boton buscar...y me muestra todos los nombre que estan dentro de esta fecha.
Ahora mi pregunta es la siguiente, como hago para colocar un botón que me envíe solo la información que me esta mostrando en pantalla a excel, es decir, si yo elijo una fecha y me muestra dos registro, solo envíe esos dos registros a excel, y despúes con otra fecha me muestra 10 registros, me envíe los 10 registros a excel, y así sucesivamente.

espero que me ayuden, ya que necesito realizar el filtro fecha para que así no se pase toda la información y solo la que yo esto viendo en pantalla.

Gracias.

Rem pasa datos a excell
Dim objExcel As Object
Dim libro As Object

Const xlHairline = 1
Const xlMedium = -4138
Const xlThick = 4
Const xlThin = 2
Const xlWBATWorksheet = -4167

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set libro = objExcel.Workbooks.Add

' creo un libro con una sola hoja
'libro.Workbooks.Add xlWBATWorksheet
strHoja = libro.ActiveSheet.Name
'libro.ActiveSheet.Name = "jose"



Rem ----cabecera
libro.ActiveSheet.Cells(1, 1) = "LISTADO DE TELEFONOS EMPSA S.L.U "
libro.ActiveSheet.Cells(2, 1) = "AUXILIARES FECHA " & Now()




libro.ActiveSheet.Cells(4, 1) = RS.Fields(0).Name
libro.ActiveSheet.Cells(4, 2) = RS.Fields(1).Name
libro.ActiveSheet.Cells(4, 3) = RS.Fields(2).Name
libro.ActiveSheet.Cells(4, 4) = RS.Fields(3).Name
libro.ActiveSheet.Cells(4, 5) = RS.Fields(4).Name
'libro.ActiveSheet.Cells(1, 6) = RS.Fields(5).Name
'libro.ActiveSheet.Cells(1, 7) = RS.Fields(6).Name
'libro.ActiveSheet.Cells(1, 8) = RS.Fields(7).Name
'libro.ActiveSheet.Cells(1, 9) = RS.Fields(8).Name
'libro.ActiveSheet.Cells(1, 10) = RS.Fields(9).Name

'libro.ActiveSheet.Cells(1, 11) = RS.Fields(10).Name
'libro.ActiveSheet.Cells(1, 12) = RS.Fields(11).Name
'libro.ActiveSheet.Cells(1, 13) = RS.Fields(12).Name
'libro.ActiveSheet.Cells(1, 14) = RS.Fields(13).Name
'libro.ActiveSheet.Cells(1, 15) = RS.Fields(14).Name
'libro.ActiveSheet.Cells(1, 16) = RS.Fields(15).Name
'libro.ActiveSheet.Cells(1, 17) = RS.Fields(16).Name
'libro.ActiveSheet.Cells(1, 18) = RS.Fields(17).Name
'libro.ActiveSheet.Cells(1, 19) = RS.Fields(18).Name
'libro.ActiveSheet.Cells(1, 20) = RS.Fields(19).Name

'libro.ActiveSheet.Cells(1, 21) = RS.Fields(20).Name
'libro.ActiveSheet.Cells(1, 22) = RS.Fields(21).Name
'libro.ActiveSheet.Cells(1, 23) = RS.Fields(22).Name
'libro.ActiveSheet.Cells(1, 24) = RS.Fields(23).Name
'libro.ActiveSheet.Cells(1, 25) = RS.Fields(24).Name
'libro.ActiveSheet.Cells(1, 26) = RS.Fields(25).Name

'libro.ActiveSheet.Cells(1, 27) = RS.Fields(26).Name

'libro.ActiveSheet.Cells(1, 28) = Rs.Fields(27).Name
'libro.ActiveSheet.Cells(1, 29) = Rs.Fields(28).Name
'libro.ActiveSheet.Cells(1, 30) = Rs.Fields(29).Name






n = 5

Do While RS.EOF = False
'MsgBox Rs.Fields(4).Value
' escribo los datos en la hoja
libro.ActiveSheet.Cells(n, 1) = RS.Fields(0).Value
libro.ActiveSheet.Cells(n, 2) = RS.Fields(1).Value
libro.ActiveSheet.Cells(n, 3) = RS.Fields(2).Value
libro.ActiveSheet.Cells(n, 4) = RS.Fields(3).Value
libro.ActiveSheet.Cells(n, 5) = RS.Fields(4).Value
' libro.ActiveSheet.Cells(n, 6) = RS.Fields(5).Value
' libro.ActiveSheet.Cells(n, 7) = RS.Fields(6).Value
' libro.ActiveSheet.Cells(n, 8) = RS.Fields(7).Value
' libro.ActiveSheet.Cells(n, 9) = RS.Fields(8).Value
' libro.ActiveSheet.Cells(n, 10) = RS.Fields(9).Value

' libro.ActiveSheet.Cells(n, 11) = RS.Fields(10).Value
' libro.ActiveSheet.Cells(n, 12) = RS.Fields(11).Value
' libro.ActiveSheet.Cells(n, 13) = RS.Fields(12).Value
' libro.ActiveSheet.Cells(n, 14) = RS.Fields(13).Value
' libro.ActiveSheet.Cells(n, 15) = RS.Fields(14).Value
' libro.ActiveSheet.Cells(n, 16) = RS.Fields(15).Value
' libro.ActiveSheet.Cells(n, 17) = RS.Fields(16).Value
' libro.ActiveSheet.Cells(n, 18) = RS.Fields(17).Value
' libro.ActiveSheet.Cells(n, 19) = RS.Fields(18).Value
' libro.ActiveSheet.Cells(n, 20) = RS.Fields(19).Value

' libro.ActiveSheet.Cells(n, 21) = RS.Fields(20).Value
' libro.ActiveSheet.Cells(n, 22) = RS.Fields(21).Value
' libro.ActiveSheet.Cells(n, 23) = RS.Fields(22).Value
' libro.ActiveSheet.Cells(n, 24) = RS.Fields(23).Value
' libro.ActiveSheet.Cells(n, 25) = RS.Fields(24).Value
' libro.ActiveSheet.Cells(n, 26) = RS.Fields(25).Value
' libro.ActiveSheet.Cells(n, 27) = RS.Fields(26).Value

' libro.ActiveSheet.Cells(n, 28) = Rs.Fields(27).Value
'libro.ActiveSheet.Cells(n, 29) = Rs.Fields(28).Value
'libro.ActiveSheet.Cells(n, 30) = Rs.Fields(29).Value



'libro.ActiveSheet.Cells(n, 1).CopyFromRecordset Rs
'xls.ActiveSheet.Cells(2, 1).CopyFromRecordset rstPedidos





RS.MoveNext
n = n + 1

Loop


' ajusto el tamaño de las columnas
'libro.Columns("A:j").EntireColumn.AutoFit
libro.Columns("j:k").EntireColumn.AutoFit








libro.Close True, "c:\milibroexcel"
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------