Bob Phillips wrote

With Sheets(1)
For i = 4 To 40
.Range("C" & i).Value = .Range("H" & i).Value *
Sheets(2).Range("A" & i + 3).Value
Next i
End With


Perfect. I knew it had to be simpler than I was envisioning.
Many thanks.

--
David