Worksheets("Daily Tracker").Select
    Worksheets("Daily Tracker").Range("A2").Select
    If Worksheets("Daily Tracker").Range("A2").Offset(1, 0) <> "" Then
    Worksheets("Daily Tracker").Range("A2").End(x1Down).Select  **(Error is here)**
    End If
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Crew
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = Day
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = SiteID