Find Data, Delete It And The Adjacet Cell

I have the code below. and it works to delete the variable in DelWC which is selected by a combobox. Combobox is populated by Column R info, You select the data, and then hit the delete key, it deletes what it found, great.. but I need it to delete addition info that is in the next row adjacent to it...

Column R Column S
AINA2 X-5900
AENE2 X-5874

The code finds and delets the AENE2 but doesn't delete the X-5874

With Worksheets("Data"). Range("R:S")
On Error Resume Next
Set Del = .Find(DelWC)
If Del = Del Then
Del.Delete Shift:=xlShiftUp