从excel vba中的一行删除重复数据

Question

我正在尝试删除excel中的重复项希望有一些数据如下图所示：

这就是我所做的：

Sub Bouton9_Clic()
Set Rng = Range("H1", "LV1")
Rng.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub