v_344 respondió:
Te paso el código (este ejemplo debería insertarse en la hoja donde llenas los datos) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row = 2 Then Dim celda As Range For Each celda In Range("a1:d1") If...