Dante Amor respondió:
Te anexo la macro para que la pongas en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Columns("B:C")) Is Nothing Then For Each r In Target.Rows Cells(r.Row, "D") = Cells(r.Row,...