with worksheets("sheet9999")
.range("b4:ad49").copy _
destination:=.range("b53")
end with

If you really only need values:

dim RngToCopy as range
with worksheets("sheet9999")
set rngtocopy = .range("b4:ad49")
.range("b53").resize(rngtocopy.rows.count,rngtocop y.columns.count).value _
= rngtocopy.value
end with

Or
with worksheets("sheet9999")
.range("b4:ad49").copy
.range("b53").pastespecial paste:=xlpastespecialvalues
end with



Dave F wrote:

This should be a simple VBA routine:

I have a range, B4:AD49

I want to copy the range and paste its values in another range. The upper
left hand corner of this new range would be B53 of the same worksheet. How
would I do this via VBA?

(Why am I doing this? Because this sheet is part of a larger model, and the
sheet is being used by a novice to Excel who needs only the values in the
aforementioned range. I figure copying this range and pasting its values
elsewhere on the sheet is the easiest way to idiot-proof the data. Once I
figure out how to copy and paste the values in range B4:AD49, I'll then have
the macro hide rows that don't need to be viewed by the novice user.)
--
Brevity is the soul of wit.

--

Dave Peterson