Não vou analisar a formula, mas sim o erro :
"metodo range falhou"
Acontece que na instrução : For Each i In Selection você está se referindo a um endereço Selecionado, então tem de ter instrução que selecione o range primeiro, tipo ;
Range("A3:G3").Select - selecionamos os ranges e depois aplicamos a propriedade "Selection".
[]
Postado : 29/05/2015 10:18 am