满足条件时生成列表

Question

如果要满足功能，我想复制并粘贴或生成列表。

这是我的代码，它会一直计算到K5> = 71，但不会粘贴。我希望它至少粘贴10套List。请检查我的代码中有什么问题或建议如何改进它。

  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