Ændre vba kode med vba

Hej
Er det muligt at ændre VBA kode i en fane med noget andet VBA?
Jeg har dette

Public rCurCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rReactOn As Range
    ActiveSheet.Unprotect
    If rCurCell Is Nothing Then Set rCurCell = Target
    Set rReactOn = Union(Range("B1"), Range("E1"), Range("F1"))
    If Not Intersect(rCurCell, rReactOn) Is Nothing Then
        rCurCell.Offset(1, 0).Interior.Color = xlNone
      rCurCell.Offset(2, 0).Interior.Color = xlNone
    End If
 
    If Not Intersect(Target, rReactOn) Is Nothing Then
        Target.Offset(1, 0).Interior.Color = vbGreen
        Target.Offset(2, 0).Interior.Color = vbGreen
    End If
    Set rCurCell = Target
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub

Jeg vil gerne kunne ændre i den fane hvor det står, men det skal kunne gøres med en makro. Jeg vil gerne blokke ActiveSheet.Protect... mens jeg sætter nye date ind i cellerne. Det er fra celle A4 til I4 og xx antal rækker.
Jeg vil slette alle rækker fra A4 og ned og derefter sætte nye rækker ind. Derefter skal ActiveSheet.Protect... slås til igen