Paste range into only blank cells

[scrabtree23]

Let's say I have a range in sheet 1 from A1:E10 and I want to copy and paste that range in to sheet 2 range A1:E10. The catch is, if any of the cells in the destination range already have a value in them, I don't want that value to be overwritten. In other words, I only want the blank cells in sheet 2 to receive the paste from the corresponding cells in sheet 1.

[JOHN H. DAVIS]

Maybe:

Sub scrabtree23()
Dim i As Long, y As Long
With Sheets("Sheet2")
    For i = 1 To 10
        For y = 1 To 5
            If .Cells(i, y) = "" Then
                .Cells(i, y) = Sheets("Sheet1").Cells(i, y)
            End If
        Next y
    Next i
End With
        
End Sub

[scrabtree23]

Worked great. I can see how this will speed up a lot of cut and paste code I have done in the past, also.

[JOHN H. DAVIS]

Glad to see that it helped you out. Thanks for the feedback. Please mark this thread as solved.