Paste new strings not found in current range to bottom of current range

[drestew]

I'm very new to vba so bare with me . I have column A that has all existing categories, new categories are listed in column C. I'm trying to determine how to take these new categories, and add them to column "a" if they aren't already in column A. In the example the new categories in column C are added to column A even if there are already in column A. I would also need range("a1") in the if-then line to be a dynamic range since new categories will be added as the code runs. Some constructive criticism would be greatly appreciated as well to help me in the future.

Sub newcategory()


Dim newcatcount As Integer
Dim i As Integer


newcat = Range("c100000").End(xlUp).Row


For i = 1 To newcat


    If Cells(i, 3).Value <> Range("a1") Then
    Cells(i, 3).Select
    Selection.copy
    Range("a100000").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    
    End If
    
Next




End Sub

 

[JumpingCrab]

You can either loop through your list in column A for each value in column B, or you can use a dictionary or collection object to accomplish what you want to do.
This is a good article on how to do this:

https://www.experts-exchange.com/articles/3391/Using-the-Dictionary-Class-in-VBA.html