Try the following macro:

Sub DelIfWhiteBkgrd(Rng As Range)
Dim c As Range
For Each c In Rng
'If cell  background is white  or has no fill,
'clear the cell's contents.
If (c.Interior.ColorIndex = 2 Or _
c.Interior.ColorIndex = xlNone) Then
c.ClearContents
End If
Next c
End Sub

You call it like this, as needed:

Sub AAAA()
Call DelIfWhiteBkgrd(ActiveSheet.Range("A2:J31"))
End Sub