Copy a range to another sheet

Hi,

I am having a moment and can't work out how to copy a range to another sheet.

The range "rng" refers to cells "e5,e7,e9,e11,e13,e15,e17,e19,e22,e24" which I have named iRNG.

*** iSh and pSh are defined further up in the code as sheets "INPUT" and "PENDING" respectively.

I want to cope each cell value from iRNG to the next blank row on pSh

However this seems to copy cell iSh.range("L22") to each of the cells in the next blank row on pSh rather that each cell value from iRNG, any ideas where I am going wrong?

Thanks

Andy

Dim NR As Long
Dim NC As Long
Dim rng As Range
Dim i As Range
     
Application.ScreenUpdating = False

NR = pSh.Range("A" & Rows.Count).End(xlUp).Row + 1
NC = 1
Set rng = ish.Range("iRNG")
    
    For Each i In rng
        Cell.Select
        With Selection
            .Copy
        End With
        pSh.Cells(NR, NC).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    NC = NC + 1
    Next i
        
Application.ScreenUpdating = True