It looks like this:
Set copy_range = Worksheets("Purchase Requisition") _
..Range(cell_range.Offset(cell_count, 7))

Needs to be changed to:

Set copy_range = Worksheets("Purchase Requisition") _
..Cells(cell_range.Offset(cell_count, 7))




"baconcow" wrote:

Once again, I am trying to do something simple. I can get it to work with
macros, but when I modify the code, it doesn't seem to want to work anymore.
I am trying to copy a given range (A4:H4) and paste it to a cell that can
change.

Here is the code I am using:

Dim copy_range As Range
Call cell_setup 'this is where cell_range is properly defined (it works in
the later code fine)

' create new row
Set copy_range = Worksheets("Purchase
Requisition").Range(cell_range.Offset(cell_count, 7))
Range("A4:H4").Select
Application.CutCopyMode = False 'something the macro made
Selection.Copy
copy_range.Paste



I would think this would work:

' create new row
Set copy_range = Worksheets("Purchase
Requisition").Range(cell_range.Offset(cell_count, 7))
Range("A4:H4").Copy
copy_range.Paste

but... it doesn't seem to want to

I get a "Run-time error '1004':Application-defined or object-defined error"