Oh...and for those listening in, here's Brad's code:

Sub EraseData()
    Dim cel As Range
    Application.ScreenUpdating = False  'Stops screen flicker & code runs faster
    ActiveSheet.Unprotect Password:=""
    Range("rng1").ClearContents
    Application.EnableEvents = False    'Don't run Worksheet_Change sub while clearing rng2, rng3, rng4, rng5 & rng6
    Range("rng2").ClearContents
    For Each cel In Range("rng3")   'Contains merged cells, so do this to avoid error
        cel.MergeArea.ClearContents
    Next cel
    For Each cel In Range("rng4")
        cel.MergeArea.ClearContents
    Next cel
    For Each cel In Range("rng5")
        cel.MergeArea.ClearContents
    Next cel
    For Each cel In Range("rng6")
        cel.MergeArea.ClearContents
    Next cel
Application.EnableEvents = True
    ActiveSheet.Protect Password:=""
    Application.ScreenUpdating