Sub m1()For i = 1 To 54756 If Cells(i, 4).Value = "" ThenCells(i, 4).Value = Cells(i, 3).Value & Cells(i, 4).ValueCells(i, 3).Value = ""End If Next iEnd Sub
https://www.excel-easy.com/vba/loop.html
https://www.techonthenet.com/excel/formulas/if_then.php
https://www.techonthenet.com/excel/formulas/concat2.php