Delete ref value from Column & adjacent value

[Sleeplol]

Hello,
I'm hoping I can get some help finishing this code

Sub Remove_ListEnd()

    Dim vSpecificVal As Variant
    vSpecificVal = Worksheets("Obv_OI_TI").Range("A1").Value
    Call Worksheets("Obv_OI_TI").Range("F1:F1000").Replace(vSpecificVal, "")

End Sub

The above code will take the value from A1 (List End) and remove it from column F (the column with the fruit names). However, I need the adjacent cell also removed like the example below.
(Note: I can't simply remove the row because of other data on the sheet.

Thanks for any help with this

 

[offthelip]

try this:

Sub Del()
Dim C As Range
Dim vSpecificVal As Variant
  vSpecificVal = Worksheets("Obv_OI_TI").Range("A1").Value
With Worksheets("Obv_OI_TI")
  With .Range("$F:$F")
   Set C = .Cells.Find(What:=vSpecificVal, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
  End With
rowno = C.Row
colno = C.Column
.Range(.Cells(rowno, colno), .Cells(rowno, colno + 1)) = ""
End With
End Sub

 

[Sleeplol]

offthelip, this works fantastically!! Thanks very much