Clearing all unlocked cells, but want to eliminate or repopulate specific Cells

[JustJerry2C]

I have some existing code that works exactly as it should:

 'Clear Vocab Entries
                With Sheets(VocabSpell.Name)
                    Set rClear = Nothing
                    For Each r In Sheets(VocabSpell.Name).UsedRange
                        If r.Locked = False Then
                            If rClear Is Nothing Then
                                Set rClear = r
                            Else
                                Set rClear = Union(rClear, r)
                            End If
                        End If
                    Next r
                    rClear.ClearContents
                End With

What I can't seem to make work, is that I want three specific cells to NOT be deleted, or repopulated with existing values, those being cells B70, 71 and 72.

I tired this for starters trying to assign a temporary value, but it does not work

'Clear Vocab Entries
                With Sheets(VocabSpell.Name)
                    TEMP=Range("B70").Value
                    Set rClear = Nothing
                    For Each r In Sheets(VocabSpell.Name).UsedRange
                        If r.Locked = False Then
                            If rClear Is Nothing Then
                                Set rClear = r
                            Else
                                Set rClear = Union(rClear, r)
                            End If
                        End If
                    Next r
                    rClear.ClearContents
                   Range("B70").Value = TEMP
                End With

Any suggestions would greatly be appreciated!

 

[JustJerry2C]

Ok, I have tried so many things and can't figure this out. Latest:

Public Function DataDelete()

'This Sub will clear all content from grading sheets
'As of 2/6/2019, Student names on control sheet not included
    
Dim r As Range, rClear As Range
Set rClear = Nothing

'Clear Vocab Entries
                With Sheets(VocabSpell.Name)
                    Set rClear = Nothing
                    For Each r In Sheets(VocabSpell.Name).UsedRange
                        If r.Locked = False Then
                            If rClear Is Nothing Then
                                Set rClear = r
                            Else
                                Set rClear = Union(rClear, r)
                            End If
                        End If
                    Next r
                    rClear.ClearContents
                End With

 MsgBox "All Grades and Student Names Have Been Deleted", vbOKOnly + vbInformation, "Grades/Student Names Deleted"
                
                Application.ScreenUpdating = True

                Range("B3").Select
                
                Call AddNames

End Function

Public Function AddNames()

    Worksheets(VocabSpell.Name).Range("B70") = Worksheets(ControlSheet.Name).Range("B3").Value

End Function

If I debug and run the AddNames by itself, it will repopulate and do what I want it to do. However, it won't run with the other code, even if I remove the Call AddNames and replace with the code line in the AddNames function. I am stumped.