Makro für Nur Werte einfüge

Sub inhalteeinf()
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Klar, dass er jetzt immer in A1 einfügt.
Was soll ich im Makro ändern, dass das Kopierte in die aktive Zelle eingefügt wird?
Danke und Gruß
Hardi