У вашего броузера проблема в совместимости с HTML5
how to get last row in excel | vba- vbatip#16
*******HOW TO GET LAST ROW IN A COLUMN******
Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
Dim LastCol As Integer
With ActiveSheet
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
MsgBox LastCol
End Sub
*****GET LAST COLUMN IN A ROW ********************
Sub UsedRange_Example_Column()
Dim LastColumn As Long
With ActiveSheet.UsedRange
LastColumn = .Columns(.Columns.Count).Column
End With
MsgBox LastColumn
End Sub
*****FOR MORE OPTIONS - VISIT *****
https://www.rondebruin.nl/win/s9/win005.htm
TO UNLOCK OR CUSTOMIZE VBA AUTOMATIONS
https://www.fiverr.com/deepaklohia/customise-excel-vba-automation-to-suit-your-needs