Need to copy single cell value to range of cells on different worksheet

[Ochimus]

Macro should copy the Col C Stock Codes on Order Form to Database Col D four times.
Then copy each set of Volumes to Database Col E.
Then copy each Destination to Database Col F.
Then copy each Delivery Date to Database Col G.
Result should be like Cols K - N in Database

Please Login or Register  to view this content.

Can't understand why it creates the RunTIme error, but hopefully someone will see the issue?

All solutions, suggestions and alternatives welcome as ever

Ochimus

[Richard Buttrey]

How about

Please Login or Register  to view this content.

[protonLeah]

Wrt Runtime error 1004:
ws.Range(.Cells(23, 3).Address, .Cells(27, 3).Address).Copy Destination:=.Cells(f, 4)

[Ochimus]

Many thanks to both for the prompt solutions. Opted for Ben's (less typing!)

Can now close this out, and wait for next challenge to stump me.

Ochimus