Free for PREMIUM members
Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(5, 6, 7, 8 _
, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Open in new window
' Returns the last used row in the active worksheet
Dim rLastCell As Range
Dim ws As Worksheet
Set ws = ActiveSheet
Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
Debug.Print "The last used row in this Worksheet is: " & rLastCell.Row
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.