Excel VBA that removes white background color

gistfile1.txt

Sub RemoveWhiteBgcolor()
    With Application.FindFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = &HFFFFFF
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Application.ReplaceFormat.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub