VBA code to dynamically remove duplicates?

[Mr2017]

Hi

I recorded a macro to remove duplicates from data in column A.

The data set was very simple - I had the number 1 in cells A1, and A2, respectively.

And the number 2 in cells A3, and A4, respectively.

However, this code only works on a fixed range. Does anyone know how to make it dynamic, please?

Sub remove_duplicates()

    Columns("A:A").Select
    ActiveSheet.Range("$A$1:$A$4").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

 

[Fluff]

Just use the entire column

    Columns("A").RemoveDuplicates Columns:=1, Header:=xlNo

 

[Mr2017]

Excellent!!

Thanks @Fluff!

That worked!

 

[Fluff]

You;re welcome.

 

[Mr2017]

Hi Fluff

Do you know how I can amend this if I have data in columns A-G with duplicates, but I want to delete duplicates from the rows based on data in column G, please?

Columns("A").RemoveDuplicates Columns:=1, Header:=xlNo

 

[Trebor76]

I have data in columns A-G with duplicates, but I want to delete duplicates from the rows based on data in column G

Try this:

Option Explicit
Sub Macro1()

    Columns("A:G").RemoveDuplicates Columns:=7, Header:=xlNo

End Sub