Hi, I have a macro which Copies specific values into a new worksheet based on a predefined format, for every unique value in Column A. Also, when the macro is run again it deletes the previously created sheets in order for them to be recreated. I am sure there is a more efficient way of doing so but this is the current code:

Sub GeneratePullCard()

'To check sheet existance
Dim bExists As Boolean
For I = 1 To Worksheets.Count
If Worksheets(I).Name = "7" Then
bExists = True
End If
Next I


'Get No of Tags
'
Sheets("Sheet1").Select
ActiveSheet.Range("a7", ActiveSheet.Range("a7").End(xlDown)).Select
'Application.ScreenUpdating = True

Dim dNoOfTags As Double
dNoOfTags = Selection.CountLarge

Dim nSelectedCells() As Integer
ReDim nSelectedCells(dNoOfTags) As Integer

For I = 1 To dNoOfTags
nSelectedCells(I) = I
Next

If bExists = False Then
'Copying Pull Card sheets and rename
Sheets("Pull Card").Select
For I = 1 To dNoOfTags
Sheets("Pull Card").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = (I + 6)
Next

'Copying Cells from Sheet1 to Pull Cards
Application.ScreenUpdating = False

For I = 7 To dNoOfTags
Worksheets("Sheet1").Range("A" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B10").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("" & I & "").Range("A47").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("" & I & "").Range("D71").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("" & I & "").Range("D72").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("E" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("E8").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("G" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B14").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("I" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B17").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("W" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B21").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("U" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B22").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("X" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B23").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("C" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B25").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("K" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B26").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("Z" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("B28").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("AB" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("A31").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("AC" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("A44").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("H" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("E14").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("J" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("E17").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("Y" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F21").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("F" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F22").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("R" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F25").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("S" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F26").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("T" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F27").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats

Worksheets("Sheet1").Range("AA" & I).Copy
Worksheets("" & I & "").Select
Worksheets("" & I & "").Range("F28").Select
Worksheets("" & I & "").PasteSpecial xlPasteValuesAndNumberFormats
Next

'Application.ScreenUpdating = True
Else
'MsgBox dNoOfTags
'Dim ShtArray() As Variant
'Dim N As Long
Application.DisplayAlerts = False
For I = 7 To dNoOfTags + 6
Sheets("" & I & "").Select
ActiveWindow.SelectedSheets.Delete
Next I
Application.DisplayAlerts = True


'Application.DisplayAlerts = False
'For i = 1 To dNoOfTags
'Sheets(i + 6).Select
'ActiveWindow.SelectedSheets.Delete
'Next
'Application.DisplayAlerts = True



End If

End Sub

My problem is right now if I run it, it creates all the sheets but does not copy the values for the last 6 created sheets.

Can anyone help please? Thanks in advance!