Something like this
Sub abc()
Dim a, i As Long
For i = 2 To Cells(Rows.Count, "c").End(xlUp).Row '<== Change c to a column that will have data in the lastrow of column.
If Len(Trim(Cells(i, "a"))) > 0 Then '<== Change a to the first column on the left, So c if your want c and d
a = Cells(i, "a").Resize(, 2).Value '<== Change a to the first column on the left, So c if your want c and d
Else
Cells(i, "a").Resize(, 2) = a '<== Change a to the first column on the left, So c if your want c and d
End If
Next
End Sub
Bookmarks