VBA code Problem

[Kenneth Hobs]

Sub AddSheets3()  
  Dim i As Integer, j As Integer, ii() As Integer
  
  'For i = Application.InputBox("Starting number?") To Application.InputBox("Ending number?")
  For i = 1 To Application.InputBox("number?")
    ReDim ii(1 To i * 10)
    For j = 1 To i * 10
      ii(j) = j
    Next j
    
    Sheets.Add.Name = "ContainerDeparture " & i
    With ActiveSheet
      .Range("A1").Value = "Numbers"
      .Range("A2").Resize(UBound(ii)).Value = WorksheetFunction.Transpose(ii)
    End With
  Next i
End Sub