Sub m1()
For i = 1 To 54756
If Cells(i, 4).Value = "" Then
Cells(i, 4).Value = Cells(i, 3).Value & Cells(i, 4).Value
Cells(i, 3).Value = ""
End If
Next i
End Sub
https://www.excel-easy.com/vba/loop.html
Sub m1()
For i = 1 To 54756
If Cells(i, 4).Value = "" Then
Cells(i, 4).Value = Cells(i, 3).Value & Cells(i, 4).Value
Cells(i, 3).Value = ""
End If
Next i
End 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