Removing Ranges where a column has X value

[stroffso]

Hi,

I have a worksheet with hundreds of rows and at irregular intervals Column B has the string "Prod1" in it.

Columns C-L of each of these rows with Prod1 all have formulas in them which is dynamic, This for example is the formulas in cell C8 =IF($Y$1="Yes",C7,IF(C4>C7,0,C7-C4)) .

I want to be able to manually type over the formulas at times as it is a necessity. Once I have completed a weekly run of putting in the manual entries I then want to put all of the formulas in the Prod 1 rows columns C-L back in.

What I have come here for help with is if I put the formula above in a random cell lets say Z8 can i then run a piece of code that puts this formulas back into Columns C to L for all rows with Prod 1 in Column B?

Sorry if I have not explained this very well I am able to provide further input if needed, thanks in advance

 

[stroffso]

*apologies I have said removing I meant to say replacing ranges

 

[stroffso]

I have worked this out thanks
Sub RestoreFormulas()
Dim lastRow As Long
Dim ws As Worksheet
Dim cell As Range

' Set the worksheet where your data is located
Set ws = ThisWorkbook.Sheets("Sheet1")


lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row


For Each cell In ws.Range("B1:B" & lastRow)
If cell.Value = "Prod1" Then

ws.Range("Z8").Copy Destination:=ws.Range("C" & cell.Row & ":L" & cell.Row)
End If
Next cell
End Sub