Eliminar ceros en rango de columnas

Encontré en el siguiente macro

Sub EliminaCeros()

''Modificada por FSerrano en 120620

''Para efuks en TodoExpertos.com

For i = 1 To Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row

     If Cells(i, 1).Value = 0 Then Cells(i, 1).ClearContents

Next

End Sub

Que es para una columna necesito aplicarlo en un rango de columnas (L:Z).