cara
o "i" de for each é como se fosse celulas e não linhas
o for each varre cada item de um grupo,
se for uma range ele vai varrer cada celula, se for array vai varrer cada valor do array e por assim vai
Range("B" & i) = Range("F1").Value ' metodo range falhou
tente assim
Range("B" & i.row ) = Range("F1").Value
no caso vai ser coluna b e linha da celula i

de resto não entendi oq vc quer fazer

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".

[]

NA VERDADE PELO QUE VCS ME PASSARAM ESTOU USANDO A PROPRIEDADE ERRADA, o que preciso é que ao cliclar no botão o loop ocorra nas celLS que o usuario selecionar com mouse ou ctrl+space, na coluna A.

tem uma pagina ensinando o metodo que vc quer fazer mas com um userform
http://www.excel-easy.com/vba/examples/ ... anges.html

oque de certa forma acho melhor , assim vc insere mensagem do que é para a pessoa fazer

FIZ PELO EXEMPLO E DEU CERTO selection.address.
Agora se não for pedir demais como fica if cell.value <> "" ' execute a formula
=ESQUERDA($D$1;6)&"-"&EXT.TEXTO($D$1;7;1)&"/"&EXT.TEXTO($D$1;8;1)
pq esta formula está em uma celula e se colcar dentro do vba fica melhor