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.