Code umstellen

Sub DRU_02()
Dim frage As Integer, intP As Long
frage = MsgBox("Wollen sie den Plan Drucken !!!", vbInformation + vbYesNo)
If frage = vbYes Then
On Error Resume Next
intP = InputBox("Wieviele Kopien ?", "Ausdruck Kopien", 1)
On Error GoTo 0
Debug.Print StrPtr(intP)
If intP > 0 Then
Call Drucken_02(intP)
Else
MsgBox "Kein Ausdruck weil keine Kopien angegeben wurden !", _
vbInformation + vbOKOnly, "Abbruch"
End If
End If
End Sub

Sub Drucken_02(pPages As Long)
Dim rng As Range
Dim objsh As Worksheet
Set objsh = ThisWorkbook.Sheets("Tabelle1")
With objsh
For Each rng In .Range("BD3:BD9")
.Range("B1") = rng
.PrintOut Copies:=pPages
Next
End With
Set objsh = Nothing
End Sub