Dante Amor respondió:
Te anexo la macro Sub Borrar_Contenido() 'Por.Dante Amor For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If UCase(Cells(i, "F")) = "X" Then Cells(i, "B") = Cells(i, "C") Cells(i, "C") = Cells(i, "D") Cells(i, "D") = "" End If Next MsgBox "Fin" End...