VBA Excel, bucle borrado columnas que sumen 0

Buenos días.

He hecho este bucle para borrar columnas que la suma de sus filas 2 a 56 sumen 0, pero tengo un problema que no se resolver, cuando borra una columna y la siguiente también suma 0, se la salta, porque, al borrarla, la siguiente ocupa su lugar y el bucle pasa a la siguiente "Col".

Espero haberme explicado.

'Columnas a evaluar
For Col = 2 To 92
'Rango a sumar
RangoSuma = Range(Cells(2, Col), Cells(56, Col))
'sumar el rango
suma = Application.WorksheetFunction.Sum(RangoSuma)
If suma < 0.1 And suma > -0.1 Then Columns(Col).Delete
'Cells(58, Col) = suma
Next Col

¿Alguna idea de como hacerlo?

Muchas gracias, saludos.