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