Difficulty with copy and paste

[baconcow]

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"

 

[JLGWhiz]

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))

 

[JLGWhiz]

I don't know, after looking closer, I think you also have Parentheses in the
wrong place. Maybe

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

 

[baconcow]

In the end, I could only get it to work with this code:

Set copy_range = Worksheets("Purchase Requisition") _
..Range(cell_range.Offset(cell_count, 0), cell_range.Offset(cell_count, 7))
Range("A4:H4").Copy
copy_range.Select
ActiveSheet.Paste

It seemed to want the entire range, from one end to the other, as opposed to
just the first cell I wanted to paste it to, like the Macro had.