Run-time error code "438"

[hyudien]

Hello master. I'm a new member here and i have a little problem with my code. And forgive me if this trouble already asked by someone before.

Sub cmdpemasukan_Click()    Dim Ws As Worksheets
    Set Ws = Worksheets("PEMASUKAN") & ("ANGSURAN")
    BarisTerakhir = Ws("PEMASUKAN").Cells(Rows.Count, 1).End(xlUp).Row
    
    Ws("ANGSURAN").Range(DU7).Copy Ws("PEMASUKAN").Range(BarisTerakhir + 1, 1)
End Sub

Please help me to reolve this problem

Regards
Hyudien