Если пустых строк действительно нет, то можно использовать, например, свойство CurrentRegion (предполагается, что ячейка "A5" является частью Вашей таблицы)
Код:
With ThisWorkbook.Worksheets(1).Range("A5").CurrentRegion
iRow = .Row + .Rows.Count - 1
'Если заполнение начинается с первой строки,
'то достаточно использовать .Rows.Count
End With
Впрочем, не стоит забывать, что существуют и другие способы узнать номер последней заполненной строки, не полагаясь на отсутствие пустых строк и столбцов и т.д.