'Get Last Row
'Purpose: Find the last row populated with data and return it as An Integer
Public Function GetLastRow(wsSheet As Worksheet) As Long
Dim lastRow As Range
' Select the Last Used Cell (Instead of something like 999999, this is a bit more efficient)
Set lastRow = wsSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
GetLastRow = wsSheet.Cells.Find(What:="*", After:=lastRow, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Function