To filter a column from other column (c=a-b) in excel (VBA Code -Excel Macros)

Const pic As String = "GU"
Const newdes As String = "GV"
Const cellDescription As String = "GS"
Public Sub TL_Generic()
Dim strHTMLmain, strHTML As String
Dim i As Integer

For i = 2 To 2979
strHTMLmain = Range(cellDescription & i).Value
strHTML = strHTMLmain
strHTML = Replace(strHTML, (Range(pic & i).Value), "")
Range(newdes & i).Value = strHTML
conti:
Next i
MsgBox "done!"
End Sub