Este fórum está sendo desativado

[GENECI]

Boa tarde.

Solicito a sua ajuda de acordo com o arquivo anexo.

Grato - GENECI.

[osvaldomp]

Olá, Geneci.

Instale uma cópia do código abaixo no módulo da planilha Planilha1.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$B$4" Then Exit Sub
 [B3:B4].Copy
 [C3].Insert shift:=xlToRight: [B3:B4] = "": Application.CutCopyMode = False
 [B3].Activate
End Sub