hi everybody!
i have this code that find the value "1" in a data base, it copies a range to another sheet and then it should delete the range that was copied, it must be delete and not clear because the values below should go up in order to copy in the next run below the last row in the data base.
im having problems with the "xlshiftup" it says is a "invalid use of property"
Sub ReleasedOrders()
    
    Dim Lastrow As Long, Nextrow As Long
    
    Application.ScreenUpdating = False
    With Sheets("CPLEXPSP")
    
        Lastrow = .Range("V" & Rows.Count).End(xlUp).Row
        Nextrow = Sheets("CPLEXRelease").Range("A" & Rows.Count).End(xlUp).Row + 1
        If Nextrow < 6 Then Nextrow = 6
        
        .Range("V8:V" & Lastrow).AutoFilter , Field:=1, Criteria1:=1
        
        .Range("A8:H" & Lastrow).Copy
        Sheets("CPLEXRelease").Range("A" & Nextrow).PasteSpecial xlPasteValues
        .Range("A8:H" & Lastrow).Resize(,21).Delete Shift: xlShiftUp
                        
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
    
End Sub
could you help me to figure it out what is wrong??
thanks