How to force macro to skip cell data if the sheet name is already used.

Here is my macro. As of now it creates new sheets based off of names in cells then moves down one. I want to be able to later on add another name to the list and run the macro again, skipping the cells that I have already used. Is this possible?

Sub test()
         
        
         Worksheets("Associate DOH").Select
         Range("E2").Select
         
                 
         'This tells the macro to stop the loop when a blank cell is found
    Do Until (ActiveCell.Value) = ""
                      
                      
         'This takes the contents of the selected cell and prepares it to be a new sheet name.
         newname = ActiveCell.Value
         
    
         
    
                  
         'This selects the qees eval sheet and copies it.
         Sheets("QEES Eval").Select
         Range("A1:J46").Select
         Selection.Copy
         
         
         'This adds one sheet to the workbook and selects cell A1.
         Sheets.Add After:=Sheets(Sheets.Count)
         Range("A1").Select
         
         
         'This paste the contents earlier selected into the new sheet.
         Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
         Cells.Select
         ActiveSheet.Paste
         
         
         'This assigns to new sheet the new name.
         ActiveSheet.Name = newname
                  
                  
         'This returns back to the first worksheet.
         Worksheets("Associate DOH").Select
                  
                  
         'This moves the selection of the cell down one row.
         ActiveCell.Offset(1, 0).Select
      
                  
      Loop
   End Sub