Excel vba将细节行的最后一行复制到小计行

Question

我运行带有小计功能的vba脚本。该脚本还会将明细中的最后一行复制到小计行中（在非数字行中）。

     With sht
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        'Copy comment information to subtotal line
        Range("C2:G2" & LastRow).Offset(-1, 0).Select
        'Range("Z2:AA2" & LastRow).Offset(-1, 0).Select
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.FormulaR1C1 = "=R[-1]C"
     End With

这在行上方有详细数据的行上很好用。当明细行为空时，它将不起作用-它会一直向上直到找到某物并将其复制下来。

TIA。