Nem da pra ajustar ja que vc nao disse o que a macro faz mas respondendo a sua duvida

Activecell.select

Deve fazer o que vc pretende

Obrigado pela resposta.

O que eu preciso é que a macro faça :

1) Célula inicial
2) selecione 15 células, incluindo a célula inicial
3) Substitua o conteúdo das formulas das células selecionadas, que é $61 para conteúdo da célula da posição 16 a partir da celula inicial e uma linha abaixo.
Exemplo: célula inicial A1, vai selecionar A1 a O1, e substituir parte da formula das 15 células que é "$61" pelo conteúdo da célula P2 que, no exemplo é "$83". Ou seja, vai pegar o conteúdo da celula P2 e substituir o $61 na formula das celulas A1:O1
obs.: lembrando que a macro será executada em qualquer célula da planilha e o conteudo das formulas das 15 células sempre terá $61 e terá que ser substituido pelo conteudo da celula da linha de baixo e 16 casas para frente.

A B C D E F G H I J K L M N O P
1 VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO FALSO FALSO FALSO FALSO FALSO 10
2 $86

Olá, Maciel.

Experimente.

Sub SubstituiCifrão61()
 ActiveCell.Resize(, 15).Replace "$61", ActiveCell.Offset(1, 15).Value, xlPart
End Sub

Osvaldo, muito obrigado.

Você foi fantástico. Show.

Forte abraço,

Macielvs

Faltou você clicar na mãozinha para agradecer ao Osvaldo.

Como você é novo no fórum, para facilitar a tua participação, sugiro tomar acessar os links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador