Cut and copy Records in another sheet.

Thanks watersev,

I am using now a nextrow for an expandable list and I am getting the error 438. I am not used to this code.

        Set nextrow = Sheets("DataOld").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)

        If Not DelR Is Nothing Then
            DelR.EntireRow.Copy Sheets.Add.nextrow <--- here is the error
            DelR.EntireRow.delete
        End If

What do think is the correct structure?

Thanks