' löschen:
Sub makro_bereich_loeschen()
Dim zu_loeschender_bereich As String
zu_loeschender_bereich = ActiveWorkbook.Worksheets("page_B").Range("C3").Value
Call loesche_den_bereich(zu_loeschender_bereich)
End Sub

Sub loesche_den_bereich(uebergabe_parameter As String)
    Range(uebergabe_parameter).Select
    Selection.ClearContents
End Sub

'''''''''''''''''''''''''''''''''''''''
' schreiben:
Sub makro_bereich_schreiben()
Dim zu_schreibender_bereich As String
zu_schreibender_bereich = ActiveWorkbook.Worksheets("page_B").Range("C1").Value
Call schreibe_den_bereich(zu_schreibender_bereich)
End Sub

Sub schreibe_den_bereich(uebergabe_parameter As String)
    Range("E1").Select
    Selection.Copy
    Range(uebergabe_parameter).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub