Guru do Excel e Power BI

Bom dia.
Peço ajuda para uma macro que apague uma coluna com células específicas a partir de uma célula ativa.

Planilha detalhada em anexo.

opção1 - em um módulo comum e precisa ser disparada manualmente
Sub LimpaIntervalo()
If ActiveCell.Row = 1 And ActiveCell.Column Mod 2 = 0 Then
ActiveCell.Offset(2, 1).Resize(16) = ""
End If
End Sub

opção2 - no módulo da planilha Jun, será disparada ao selecionar as células B1, D1, F1, ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column Mod 2 = 0 Then
Target.Offset(2, 1).Resize(16) = ""
End If
End Sub

obs. ESTE FÓRUM CONTINUA COM PROBLEMAS QUE NÃO PERMITEM A FORMATAÇÃO DE TEXTOS E DE CÓDIGOS.
E FAZ TEMPO ISSO ... PARECE QUE O FÓRUM ESTÁ ABANDONADO!

Obrigado Osvaldo, era isso mesmo. Abraços.