search date value and then delete cell then shift up

hi,

i have dates in A4 to CV153 they are formatted as ddd-mmm-dd
example:
A4=06/19/16 format/shown as "Sun-Jun-19"

how do i search the word "Sun" then if found delete the cell and shift up
(shift the cell up in the column not the entire row)

i have the initial code below

Sub SUNDAY_DELETE()
    For Each C In Worksheets("Sheet2").Range("A4:CV153").Cells
       
    Next
End Sub