Excel-Makro

Wie kann ich in einem Makro die gerade aktive Zelle ansprechen, damit das Datum aus B1 in die Zelle eingetragen wird.

Sub Akt_dat()
'
' Akt_dat Makro
' Makro am 14.02.2003 von Eva Ulm aufgezeichnet
'

'
Range("B1").Select
Selection.Copy
'Range("E10").Select 'HIER sollte die aktive Zelle stehen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,_ SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "d/m/yy"

End Sub

Vielen Dank an alle im vorraus.
Eure Hilfe ist sagenhaft.

Heinz