Ezeket használom, nálam jól beváltak:

Sub Sorok_Oszlopok()

Dim utolsosor As Long
Dim utolsooszlop As Byte

'sorok száma az "A" oszlop értékei alapján (akkor is jó, ha "lyukas")
utolsosor = Range("A" & Rows.Count).End(xlUp).Row

'oszlopok száma az 1. sor értékei alapján
utolsooszlop = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox utolsosor & vbNewLine & utolsooszlop

End Sub