Reply to thread

Message: [QUOTE="Mike H, post: 6438803"] Hi, Try this macro. Alt+F11 to open VB editor. Right click 'ThisWorkbook' and insert module and paste the code in and run it. Change the sheet name to the correct one. Sub Copy_B_To_C() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") With ws .Columns("B:B").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=.Range("C1"), Unique:=True End With End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. [/QUOTE]