Sub DatumSuchen() Dringend

Habe folgendes Makro

Sub DatumSuchen()

Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
Workbooks.Open Filename:= _
"C:\Datenauswertungen\Datenauswertung 2003\Gebietslast 2003\Januar 2003\Istwerte gl januar.xls"
Set rngFind = Columns("A:BK").Find(DateValue(strDate), _
LookIn:=xlFormulas)

If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub

funktioniert , ich möchte aber nach der Auswahl des Datums aus der Zeile 3 die werte aus der zeile 6-101 kopieren in ein neues tab.blatt.

Vielen Dank