Delete Columns That Total To Zero

I need code that will check each column from D:P in the " Total" row for a value of Zero. If it finds a zero then delete entire column. This will be the final procedure of a macro that does other formatting things so the number of rows will differ causing the "Total" row to be dynamic. I have the following code that will find the word total, but I don't know how to set the range to offset 1 col each time checking for zero and deleting if true. The word "Total" is merged between columns A:B. see example sheet.

Sub asdf()
Dim c As Variant
Dim Rng As Range

'search the sheet for "Total"
Set c = Cells.Find("Total", lookat:=xlWhole)

'if it is found
If Not c Is Nothing Then
Set Rng = Range(c, c.Offset(0, 3))