Remove/Delete duplicate rows from 5 columns

[Samadhan Gaikwad]

I want to remove/delete all duplicate rows from 5 columns which have no headers.
I have recorded operation in macro and code is here:

Sub Macro11()
    Columns("D:D").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    ActiveSheet.Range("$A$1:$E$8").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
        Header:=xlNo
    Range("A1").Select
End Sub

I want above range to be variable as my count of rows will be varying.
I have compared column 'C' to remove duplicates. It will be OK to compare each row or cells only from coulmn 'D'.

 

[PCosta87]

I want to remove/delete all duplicate rows from 5 columns which have no headers.
I have recorded operation in macro and code is here:

Sub Macro11()
    Columns("D:D").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    ActiveSheet.Range("$A$1:$E$8").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
        Header:=xlNo
    Range("A1").Select
End Sub

I want above range to be variable as my count of rows will be varying.
I have compared column 'C' to remove duplicates. It will be OK to compare each row or cells only from coulmn 'D'.

Hi,

You can use:

Sub Macro11()
    ActiveSheet.Range("A:E").RemoveDuplicates Columns:=4, Header:=xlNo
End Sub

By using the whole columns you don't need to worry about the amount of rows... it will consider them all... it will remove duplicates found in "D".

 

[Samadhan Gaikwad]

Working great!
Will you please explain about which range (and how) is considered and where "D" column is considered?

 

[PCosta87]

Working great!
Will you please explain about which range (and how) is considered and where "D" column is considered?

So, the range being considered is "A:E" (whole columns):
"ActiveSheet.Range("A:E")"

and the column "D" is the 4th:
"Columns:=4"

I hope this is comprehensive enough.

 

[Samadhan Gaikwad]

Ok. I was misunderstood column 4 is its count. Now I got it.