Pop up error: run time error 438 object doesn't support this property or method

hrh_dash 

    Dim DestDC2 As Range
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim adr As String
    Dim sumDC2 As Double

    Set ws1 = Sheet1
    Set ws2 = Sheet2
    Set DestDC2 = ws2.Cells.Find(What:="DC2", LookAt:=xlPart)
    If Not DestDC2 Is Nothing Then
        adr = DestDC2.Address
        Do
            sumDC2 = sumDC2 + DestDC2.Offset(0, 1).Value
            Set DestDC2 = ws2.Cells.Find(What:="DC2", After:=DestDC2, LookAt:=xlPart)
            If DestDC2 Is Nothing Then Exit Sub
        Loop Until DestDC2.Address = adr
    End If
    ws1.Range("A1") = sumDC2