This finds last row in column "B"

Code:
With ActiveSheet
        LastRowCol = .Range("B" & .Rows.Count).End(xlUp).Row
End With