Для удобства написал себе такую функцию :
Public Function LastUsedRow() As Long
Dim tmpR As Range
Dim arRow(256) As Long
For Each tmpR In [A65536:AA65536]
arRow(tmpR.Column) = tmpR.End(xlUp).Row
Next
LastUsedRow = WorksheetFunction.Max(arRow)
End Function
Если заранее известно примерное кол-во столбцов то диапазон [A65536:AA65536] можно уменьшить и будет работать быстрее.