Как удалить скрытые ячейки Excel через VBScript?

Question

У меня проблема со словарем Excel, в котором есть скрытые ячейки, и это заставляет меня ломать голову над его очисткой.Итак, я получил этот код в VBA.Но я хочу это в VBScript, чтобы я мог выполнить его прямо из Stata без необходимости открывать лист для удаления ячеек

код в VBA:

Sub exclui_celulas_ocultas()

Dim lastRow
lastRow = 1000
    For iCntr = lastRow To 1 Step -1
        If Rows(iCntr).Hidden = True Then Rows(iCntr).EntireRow.Delete
    Next
End Sub

Также я хотел бысделать родовой «lastRow» вместо указания константы.

Спасибо