Pivot mit Markierung | Herbers Excel-Forum

Hallo,
ich muss von verschiedenen Tabellen immer dieselben Pivots erstellen.
Der beiliegende aufgezeichnete Code funktioniert bestens ..
Nun möchte ich diesen so abändern, dass der Code mich zuerst auffordert, entsprechend zu markieren und aber den Rest wie beiliegendes Makro erledigt.
Aber wie bringe ich diesem Code bei, dass Excel mich zuerst auffordert zu markieren.
Danke für Hilfe
Markus

Sub Makro2()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'0001'!R3C6:R259C9").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("    Betrag"), "Anzahl von     Betrag", xlCount
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Text")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Bel.Nr")
.Orientation = xlRowField
.Position = 2
End With
Range("A3").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields("Anzahl von     Betrag"). _

Function = xlSum
Range("A4").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields("Text").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
Columns("C:C").Select
Application.CommandBars("PivotTable").Visible = False
End Sub