Sub test()
For i = 1 To Range("A1").Value
With Worksheets.Add
.Name = "Pkg " & i
End With
Next i
End Sub
Sub test()
For i = 1 To Range("A1").Value
With Worksheets.Add
.Name = "Pkg " & i
End With
With Sheets("Pkg " & i)
.Range("B1:G30").Value = Range("B1:G30").Value
End With
Next i
End Sub
Sub test()
For i = 1 To Range("A1").Value
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
.Name = "Pkg " & i
End With
With Sheets("Pkg " & i)
.Range("B1:G30").Value = Range("B1:G30").Value
End With
Next i
End Sub