How to enter a formula into a cell after a macro runs

Ok so I have this sheet that when a command button is pressed by the user it takes some cell values and paste them into another sheet. It then clears all the data in cells that are specified and then hides rows for the user to start over. There are some cells that have formulas in them that could be over written by the user if need be. These cells are C132, C133 and C134. Below are the formulas in these cells.
C132 formula is =IF(ISBLANK(C123),"",$Q$109+$Q$94+$Q$79+$Q$64+$Q$49+$Q$34+$Q$19+$Q$4)
C133 formula is =IF(ISBLANK(C123),"",IF(COUNT($W$109,$W$94,$W$79,$W$64,$W$49,$W$34,$W$19,$W$4)>0,SUM($W$4,$W$19,$W$34,$W$49,$W$64,$W$79,$W$94,$W$109),""))
C134 formula is =IF(AND(C125="",C123=""),"",IFERROR(SUM($V:$V)/(COUNT($V:$V)-COUNTIF($V:$V,0)),0))

What I want to happen is after the command button is pressed, I'd like to put these formulas back into the cells where they belong. If the user has changed the cells and manually put in a value.

The code for the command button is this.

Private Sub CommandButton2_Click()
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    
    Dim rName  As Range
    Dim dName As Range
    Dim foundName As Range
    Dim found2Name As Range
    Dim lColumn As Long
    
    For Each rName In Sheets("Moulder 1").Range("C123:H123")
        If rName <> "" Then
            Set foundName = Sheets("Employees").Range("A:A").Find(rName, LookIn:=xlValues, lookat:=xlWhole)
            If Not foundName Is Nothing Then
                lColumn = Application.WorksheetFunction.Weekday(Sheets("Moulder 1").Range("C1").value) + 3
                If lColumn = 3 Then
                    lColumn = 4
                End If
                Sheets("Employees").Cells(foundName.Row, lColumn) = Val(Sheets("Employees").Cells(foundName.Row, lColumn)) + rName.Offset(5, 0)
            End If
        End If
    Next rName
    For Each dName In Sheets("Moulder 1").Range("O123,Q123")
        If dName <> "" Then
            Set found2Name = Sheets("Employees").Range("A:A").Find(dName, LookIn:=xlValues, lookat:=xlWhole)
            If Not found2Name Is Nothing Then
                lColumn = Application.WorksheetFunction.Weekday(Sheets("Moulder 1").Range("C1").value) + 3
                If lColumn = 3 Then
                    lColumn = 4
                End If
                Sheets("Employees").Cells(found2Name.Row, lColumn) = Val(Sheets("Employees").Cells(found2Name.Row, lColumn)) + dName.Offset(1, 0)
            End If
        End If
    Next dName
    Range("Q124,O124,Q123,O123").ClearContents
    Range("C123:H123,Q109,O109,G109,F109,B109,B94,F94,G94,O94,Q94,Q79,O79,G79,F79,B79").ClearContents
    Range("Q64,O64,G64,F64,B64,Q49,O49,G49,F49,B49,B64,Q34,O34,G34,F34,B34,Q19,O19,G19,F19,B19").ClearContents
    Range("Q4,O4,G4,F4,B4").ClearContents
    
    Rows("7:119").Hidden = True
    Range("B4").Select
    ActiveSheet.Protect
    Application.ScreenUpdating = True
    
End Sub

Thanks in advance for everything
excel 2010