Я знаю, что Скотт уже опубликовал решение, но все, что вам нужно сделать, это следующее:
Range("D1:AB6").Range("$D$1:$AB$6").RemoveDuplicates Columns:=Array(1, 25), Header:=xlNo
Пока выбранный диапазон содержит оба столбца, значения массива отражают индекс столбца.