下記の内容で取得できます。

'最後の行を取得する
With Cells(Rows.Count, "B").End(xlUp)
	row = .row + .MergeArea.Rows.Count - 1
End With