Paulo Valles Mora

Private Sub Worksheet_Change(ByVal Target As Range Dim n As Integer n = 18 Do While n < 48 If Union(Cells(n, 2), Target).Address = Cells(n, 2).Address Then (Cells(n, 4), Cells(n, 5), Cells(n, 11)).ClearContents End If If Union(Cells(Target.Row, 4),...