Type Mismatch when switching from single cell Range value to multiple cell range value

Went from a single cell --> Range("B" & r) which was working fine, to multiple cell --> Range("B" & r & ":D" & r) and now getting a type mismatch error. Not sure why... Your help is appreciated!

Sub Relabel1()
Dim lastrow As Long, r As Long
lastrow = Sheets("SummarySheet").Cells(Rows.Count, "E").End(xlUp).Row
        For r = 7 To lastrow
            If Sheets("SummarySheet").Range("B" & r & ":D" & r).Value = "" Then
                Range("B" & r - 1 & ":D" & r - 1).Copy Destination:=Sheets("SummarySheet").Range("B" & r - 1 & ":D" & r - 1)
        End If
     Next r
End Sub