Copy/Paste only cells with text (don't paste blank cells over existing data)

[Bret1]

I'm using a macro to copy/paste (R:R} to (X:X). Is there a way to make it copy/paste only cells with text from (R:R)? - Don't copy/paste blank cells from (R:R) over cells in (X:X).
I already have data in many (X:X) cells also. I only want to copy over the cells from (R:R) that have data. If no data in (R:R) cell, I want to keep the current data in (X:X).
Thanks!

 

[rollis13]

This could be a solution:

Option Explicit
Sub Test()
    Range("R:R").Copy
    Range("X:X").PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True
    Application.CutCopyMode = False
End Sub

 

[Bret1]

"SkipBlanks:=True" works! Thanks!

 

[rollis13]

Glad having been of some help.