Unmerging and copying data in each cell

[ritzkalz49]

Hi, I am new to this forum and seeking help.

I am using this code to unmerge the data and copying in each cell, but it is only working in column A. I need to the same in column B & C, it doesn't work even I change the range in the code. Please help

Sub unmergeA()
Range("A1:A" & Cells(Rows.Count, "D").End(xlUp).Row).MergeCells = False
For x = 2 To Cells(Rows.Count, "D").End(xlUp).Row + 0
If Cells(x, 1) = "" Then Cells(x, 1) = Cells(x - 1, 1)
Next x
End Sub

For column B I had tried this code

Sub unmergeB()
Range("B1:B" & Cells(Rows.Count, "D").End(xlUp).Row).MergeCells = False
For x = 2 To Cells(Rows.Count, "D").End(xlUp).Row + 0
If Cells(x, 1) = "" Then Cells(x, 1) = Cells(x - 1, 1)
Next x
End Sub

 

[VoG]

Try

Sub unmergeB()
Range("B1:B" & Cells(Rows.Count, "D").End(xlUp).Row).MergeCells = False
For X = 2 To Cells(Rows.Count, "D").End(xlUp).Row + 0
    If Cells(X, 2) = "" Then Cells(X, 2) = Cells(X - 1, 2)
Next X
End Sub