Macro that loops through drop down and creates a worksheet for each drop down selection

So I have a dashboard sheet named "Business Plans" where I have a dropdown in cell A2 that's a dropdown selection of a range called "Facilities" and all dashboard data are driven off of lookups. What I want to do is First create a new workbook than a new tab for each dropdown selection with the tab in the same format but the data pasted as values. I attempted the following code that I created to save every dropdown selection as PDF but I have been unsuccessful. Any insight on how I can get this code working will be great.

Sub Worksheet_Generator()

Dim cell As Range
Dim wsSummary As Worksheet
Dim counter As Long

 Set wsSummary = Sheets("Business Plans")

For Each cell In Worksheets("dd").Range("$C3:$C75")
If cell.Value = "" Then
counter = counter + 1
 Application.StatusBar = "Processing file: " & counter & "/1042"

Else

 counter = counter + 1
 Application.StatusBar = "Processing file: " & counter & "/1042"

 With wsSummary
    .Range("$A$2").Value = cell.Value
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
 End With
End If
Next cell

Set wsSummary = Nothing
End Sub