Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$10" And Target = "" Then Columns("F").Delete
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Target.Row < 11 Or Target.Column < 6 Or Target.Column > 31 Or Target.Column Mod 2 = 0 Then Exit Sub
If Cells(9, Target.Column + 1).Value <> "ò" Then Exit Sub
Target.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
End Sub
If Target.Row < 10 Or Target.Column < 5 Or Target.Column > 30 Or Target.Column Mod 2 = 1 Then Exit Sub