Создать список, если условие выполнено

Question

Я хочу скопировать и вставить или сгенерировать список, если выполняется функция.

Это мой код, он рассчитывается до K5> = 71, но не вставляется. И я хочу, чтобы он вставил как минимум 10 комплектов списка. Пожалуйста, проверьте, что не так в моем коде или предложите, как его улучшить.

  Sub Generatelist()
Dim Ws As Worksheet
Set Ws = Worksheets("Sheet2")
Do While Range("K5") < 71
Calculate
If K5 >= 71 Then
    Sheets("Sheet2").Range("A3:I3").Copy
    Sheets("Sheet2").Range("A92").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End If
Loop
End Sub