In eine bestimmte Zelle einfügen

Sub MultipleRanges()
Dim colRng As New Collection
Dim rng As Range, rngTarget As Range
Dim iCounter As Integer
Dim sTarget As String
For Each rng In Selection.Areas
colRng.Add rng
Next rng
Worksheets("Datenblatt").Select
For iCounter = 1 To colRng.Count
Set rngTarget = Application.InputBox("Bitte Zielbereich auswählen", Type:=8)
colRng(iCounter).Copy rngTarget
Next iCounter
Application.CutCopyMode = False
End Sub

Soweit funktioniert das sehr gut. Nun möchte ich aber nicht den Zielbereich auswählen müssen sondern es soll mir immer in die Zelle A9 reinschreiben und am Schluss wenn möglich direkt ausdrucken.
Besten Dank
Gruss Roger