Once I understood what was happening & with a bit
of twiddling I've got it to do exactly what I want. Here's a snippet
below.

x = InputBox("How many Operations are there?")

For Counter = 1 To x

Range("A11").Select

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate

p = InputBox("Name of Operation?", "Input Box")

ActiveCell.FormulaR1C1 = p

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

l = InputBox("Labour cost; quantity per hour?", "Input Box")

ActiveCell.FormulaR1C1 = l

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

m = InputBox("Labour cost; cost per hour?", "Input Box")

ActiveCell.FormulaR1C1 = m

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

pr = InputBox("Production Overheads; quantity per hour?", "Input Box")

ActiveCell.FormulaR1C1 = pr

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

prcph = InputBox("Production Overheads; cost per hour?", "Input Box")

ActiveCell.FormulaR1C1 = prcph

Next Counter