Macro to extract unique records

[howard]

I have data in Col on Sheet "Imported Data" . I want to copy the unique records to sheets

When running the macro the first time, It extracts the unique records. However when running a second time, it extracts all the the records in Col C on nsheet "Imported Data"


It would be appreciated if someone could amend my code

 Sub Extract_Unique_Branches()
Sheets("Branches").Select
Dim LR1 As Long
LR1 = Cells(Rows.Count, "A").End(xlUp).Row

Range("a1:A" & LR1).ClearContents

Sheets("Imported Data").Select
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row


Application.ScreenUpdating = False
Sheets("Imported Data").Range("C1:C" & LR).Copy Destination:=Sheets("Branches").Range("A1")
Sheets("Branches").Range("A2:A" & LR1).RemoveDuplicates Columns:=1, Header:=xlNo
Application.ScreenUpdating = True
End Sub

 

[pike]

hello,
wrong row count,use

Option Explicit

Sub Extract_Unique_Branches()
    Dim LR1 As Long
    Dim LR As Long
    With Sheets("Branches")
        LR1 = .Cells(Rows.Count, "A").End(xlUp).Row
        .Range("a1:A" & LR1).ClearContents
    End With
    With Sheets("Imported Data")
        LR = .Cells(Rows.Count, "A").End(xlUp).Row
    End With
    Application.ScreenUpdating = False
    Sheets("Imported Data").Range("C1:C" & LR).Copy Destination:=Sheets("Branches").Range("A1")
    Sheets("Branches").Range("A2:A" & LR).RemoveDuplicates Columns:=1, Header:=xlNo
    Application.ScreenUpdating = True
End Sub

 

[howard]

Thanks for the help

 

[pike]

no problem thanks for posting