excel - 满足条件时生成列表

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

标签： excelvba