I am trying to define a variable with the data in the last cell in a column.
I've been trying to use the following:

Range("A1").Select
Dim DataCheck2 As Date
DataCheck = Range("A" & (Cells(Rows.Count,
ActiveCell.Column).End(xlUp)Value)).Value