macro per fare una ricerca verticale e copiare la riga su un file word

Ciao a tutti,

non sono molto pratica di macro VBA e quindi chiedo il vostro aiuto.
HO diversi file excell su cui riporto i risultati delle analisi; la tipologia è quindi un semlice foglio con la colonna A per la data analisi, colonna B descrizione prodotto etc.
Mi aiuterebbe avere una macro per cui posso:
1) cercare la data di mio interesse (nei vari file excel)
2) avere questi dati copiati in un file word (o txt)

Al momento sto usando questo codice
Sub TrovaStrCopia()

Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Range("A:Z").ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If Len(UCase(Ws1.Range("A" & RR1))) > Len(Replace(UCase(Ws1.Range("A" & RR1)), "06/06/2016", "")) Then
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Range("A" & RR1 & ":Z" & RR1).Copy Destination:=Ws2.Range("A" & UR2)
End If
Next RR1
End Sub

Tuttavia:
a)non so come farlo lavorare da un file all'altro, quindi per ora ne ho inserito uno per ogni file
b)devo cambiare manualmente la data di interesse per la ricerca
c)devo incollare manualmente i dati sul file word (opzione "mantieni solo testo (T), che è il solo fomrato che mi interessa )

sapreste aiutarmi?

grazie mille :)

EX Se digiterai 1/1/2016, cerchi la stessa data in tutti i file?
Oppure cerchi la data, mà anche con una determinata dicitura in colonna B?
I file sono strutturati tutti alla stessa manierà?
I file sono tutti nella stessa cartella?
I file hanno solo un solo foglio o multipli?
Si può fare, mà ci vorrebbe un file come campione (niente dati sensibili), verrà salvato in TXT o PDF.
Excel non riesce scrivere in Word