Sub ApplyStock()
with Sheets("Stock Maintenance")
..Range("C3").Copy sheet4.Range("B7")
..Range("C4").Copy Sheet5.Range("B7")
..Range("C5").Copy Sheet6.Range("B7")
..Range("C6").Copy Sheet7.Range("B7")
end with
End Sub

Even better
Sub stockbetter()
With Sheets("sheet1")
For i = 3 To 6
.Cells(i, "c").Copy Sheets(i + 1).Range("b7")
Next i
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"terilad" wrote in message
...
Hi I have a copy and paste code

I was wondering if there is a way to clean it up a little to run it more
better.

Here's my code.

Sub ApplyStock()
Range("C3").Copy
Sheet4.Select
Range("B7").Select
ActiveSheet.Paste
Sheets("Stock Maintenance").Select
Range("C4").Copy
Sheet5.Select
Range("B7").Select
ActiveSheet.Paste
Sheets("Stock Maintenance").Select
Range("C5").Copy
Sheet6.Select
Range("B7").Select
ActiveSheet.Paste
Sheets("Stock Maintenance").Select
Range("C6").Copy
Sheet7.Select
Range("B7").Select
ActiveSheet.Paste
End Sub

Many thanks


Mark