Hi Joel
Thank you for your reply
I should of mentioned I'm a real novice at this. When I replace my code with
yours the first row - with sheets("RSum) and Destination:= .Range("A10:A" &
LastRow) change color to red. Do I need to add more code?

Cheers

"joel" wrote:

with sheets("RSum)
set c = .Columns("C").find(What:=3, _
lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
msgbox("Cannot find the value 3")
else
LastRow = c.row
Sheets("Print").Range("A9:L9").Copy
Destination:= .Range("A10:A" & LastRow)
end with

"BrianW" wrote:

In the code below I want cell A3272 in Range("A10:A3272") to be determined
by a cell value of 3 in column L in Sheet(RSum). This cell with value 3 is
constantly moving as rows are to Sheets(RSum). Range "A9:L9" has formulas
linked directly to cells in Sheet(RSUM) so I want to copy down to the value
of 3.
Just to mention there is data after (RSum) A3272 that I dont want showing in
Sheets("Print").

Application.CutCopyMode = False
Sheets("Print").Select
Range("A9:L9").Select
Selection.Copy
Range("A10:A3272").Select
ActiveSheet.Paste
Range("B9").Select
Application.CutCopyMode = True
End Sub