No copying blank cells

[Romano_odK]

Good afternoon,

Just acquired this macro and it works great, but I what I would also want is that it won't copy blank cell over the cells in column C. Is that possible? So what the macro does right is it copies values from D to C, but when de value is empty in column D, it also makes the cell in column c empty and that is what I do not need. Is it possible to exclude that?

Thank you for your help.

With Sheets("OPXML").ListObjects("Table_Query_from_A100")
.ListColumns(4).DataBodyRange.Copy
.ListColumns(3).DataBodyRange.PasteSpecial xlPasteValues, , True
Application.CutCopyMode = False
End With

 

[Fluff]

This is exactly the same question you asked in your previous thread, so this thread is now closed.
You can continue in your previous thread.