Guru do Excel e Power BI

Olá,

estou elaborando uma planilha e como não tenho muito conhecimento em programação, gostaria de uma ajuda. Esta planilha tem algumas células protegidas e eu preciso de uma macro associada a um botão para fazer o seguinte processo:



Desbloquear a tabela;

Apagar somente os valores e não as fórmulas das colunas "B" e "D";

Copiar somente os valores e não as fórmulas das células não vazias da coluna "F" (que se refere a situação atual);

Colar esses valores na coluna "E" (que se refere a situação anterior) sobrepondo-os aos valores antigos;

Bloquear a tabela.



Segue em anexo a planilha. Obrigado

Experimente este codigo

Sub Copiar()
With Sheet1
.Range("F2:F" & Rows.Count).Copy
.Range("E2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
.Range("B2:B" & Rows.Count).ClearContents
.Range("D2:D" & Rows.Count).ClearContents

End With
End Sub