Copying all rows in a named range

[tony.reynolds]

i have a sheet i need to copy the rows in a named range

the named range is

Range("ALLUSERDATA")

it refers to A5:F10

Sorry i cant seem to find the solution on the post and help

Easy enough to copy the range but i want to be able to use the insert rows copied into another spread sheet so all the rows of data is added and all data below the inserted rows is shifted down.

 

[jeffreybrown]

Where do you want to copy it too...?

This copies to H1 oif same sheet

Sub COPYDATA()
    Range("ALLUSERDATA").Copy Destination:=Range("H1")
End Sub

 

[tony.reynolds]

sorry i wanted to copy the etire rows that the range as in my example it would be rows "5:10"

 

[jeffreybrown]

Not sure if this is all that clear, at least to me.

Copy Rows("5:10") from Sheet1 and paste in Sheet2. Not sure where in Sheet2 so this pastes at Rows("2:2") and shifts everything down.

If this doesn't do it, then maybe some more detail as to what you are trying to accomplish.

Sub tonyr()
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet
    Set wsSrc = Sheets("Sheet1")
    Set wsDst = Sheets("Sheet2")
    Application.ScreenUpdating = False

    With wsSrc
        .Rows("5:10").Copy
    End With

    With wsDst
        .Rows("2:2").Insert Shift:=xlDown
    End With
    
ExitPoint:
    Set wsSrc = Nothing
    Set wsDst = Nothing
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub