I have the code below. However I would like to make it delete the cell values only, because I have list boxes in some of the cells. So when I run the code right now, it gets rid of the rows that have the yes selected, however, the cells that take the place no longer have my selection lists, they are just blank cells. Also, I do not need the code to move the deleted cells to the Completed Sheet. They can just be deleted for good. Thanks so much for any help!



Sub update()

    Application.ScreenUpdating = False
    Dim bottomE As Integer
    bottomE = Range("E" & Rows.Count).End(xlUp).Row
    Dim c As Range
    For Each c In Range("E7:E" & bottomE)
        If c.Value = "Yes" Then
            Range(Cells(c.Row, 1), Cells(c.Row, 8)).Copy Sheets("Completed").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            c.EntireRow.Delete
        End If
    Next c
    Application.ScreenUpdating = True

End Sub