'Range.RemoveDuplicates & Run-time error '1004'

I try to remove duplicates

Set shUpl = Sheets("Upload")
Dim LR as Long 

LR = shUpl.Cells(Rows.Count, 1).End(xlUp).Row
shUpl.Range("A1:O" & LR).RemoveDuplicates Columns:=Array(1, 2, 3, 5, 6, 7, 8, 9, 10), Header:=xlYes

But I have error

Run-time error '1004': Application-defined or object-defined error

I've looked through all articles with same issue but couldn't find a solution



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source