Copy one range to another but only for the blake cells in range

[dee101]

Range1=Sheet1$F$17:$O$26
Range2 =Sheet2!$F$17:$O$26

I can copy Range1 to Range2 like this
Range("Range2").Value = Range("Range1").Value

But I only want to copy the values for the blank cells in Range2, so if some of the cells in Range2 had something in them they would not get the data form Range1 put in them.

What I think I need is something like copy the range but only for the blank cell in Range2?

Thanks
Excel 2013

 

[Scott T]

Try

Sub copydata()
Dim rng As Range
Set rng = Sheets("Sheet2").Range("F17:O26")
For Each cell In rng
cellrow = cell.Row
cellcol = cell.Column
    If cell = "" Then
        cell.Value = Sheets("Sheet1").Cells(cellrow, cellcol)
    End If

Next cell
End Sub

 

[dee101]

Thanks!

 

[Scott T]

You are welcome.