如何复制粘贴单元格值，如果单元格包含大于 0，则通过循环粘贴到另一个单元格

我需要复制C74 Cell

然后粘贴到C85到C88

条件 1：哪个单元格大于 0 无需粘贴

条件 2：哪个单元格为 0，然后粘贴 C74 值。

*无需粘贴到所有具有 0 的单元格

*只需将值粘贴到包含 0 的第一个单元格。

我尝试最多 2 个单元格。但我需要它最多 4 个单元格。

有谁指导我..

Sub TIMECALC()
ActiveSheet.Range("C74").Copy
If ActiveSheet.Range("C85").Value > 0 Then ActiveSheet.Range("C86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False Else ActiveSheet.Range("C85").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

折断