Paste-Special - R/T 1004 help needed
 

Code almost working..

Sub Foo()
Set rng = Range("Mylist") 'Range("A4:F10")
Set nrng = rng.Offset(4).Resize(rng.Rows.Count - 4) 'Range("A8:F10")
nrng.Cut
nrng.Offset(1).Select
Selection(1).Select
ActiveCell.Paste xlPasteValues '''<<< Runtime 1004 here
Application.CutCopyMode = False
End Sub

Paste-Special - R/T 1004 help needed
 

Sorry,
I forgot to use the Recorded, which
showed me I needed
ActiveSheet.Paste
Tks,


"Jim May" wrote in message
news:vi%Lf.185387$oG.110762@dukeread02...
Code almost working..

Sub Foo()
Set rng = Range("Mylist") 'Range("A4:F10")
Set nrng = rng.Offset(4).Resize(rng.Rows.Count - 4) 'Range("A8:F10")
nrng.Cut
nrng.Offset(1).Select
Selection(1).Select
ActiveCell.Paste xlPasteValues '''<<< Runtime 1004 here
Application.CutCopyMode = False
End Sub