Копирование диапазона не копирование?

Question

Я пытаюсь скопировать диапазон ячеек, используемых в качестве шаблона, на новый лист после ввода желаемого количества листов.Я могу создавать / удалять листы по мере необходимости, но по какой-то причине копия диапазона фактически не копируется (но сам источник и диапазон, кажется, действительны. Образец находится здесь , Спасибо! Ниже приведентакже соответствующий код

xOffset = Sheets("Initial Estimate").index 'initial sheet
Set xActiveSheet = Sheets(xOffset)   'sheet is not first tab

xNumber = Worksheets("Initial Estimate").Range("$B$1").Value 'input value
 For I = 1 To xNumber Step 1

        CheckSheetName = "" 'clear checkname or else get false positives

       xName = "Estimated Invoice 0" + CStr(I)

    CheckSheetName = Worksheets(xName).Name

    If CheckSheetName = "" Then 'doesnt exist

        Worksheets.Add(After:=Sheets(Sheets.Count)).Name = xName
        CheckSheetName = Worksheets(xName).Name

        MsgBox "inside " + CheckSheetName 'exists here, so should be able to copy right?

      xActiveSheet.Range("A17:H34").Copy Destination:=Worksheets(xName).Range = ("A1")   ' copy initial sheet range to xName sheet

    End If

Next I