Show the last cell in a column

Try...

Sub LastData()
    Dim LR As Long: LR = Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Row
    Dim LRdata As Range
    Set LRdata = Range("D" & LR)
    LRdata.Select
End Sub