Warum kopiert Macro das Datum nicht?

Ausserdem, wie finde und ersetze ich ein Datum (z.B.02.Jan) in Blatt?

Dank Euch!!

Gruss, Jerry

Sub Makro15()

Selection.AutoFilter Field:=2, Criteria1:="02. Jan"
Range("F4").Select
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub