Private Sub Worksheet_Change(ByVal Target As Range)
     Sheets("log").Cells(1, 1).Value = "Date"
     Sheets("log").Cells(1, 2).Value = " Equipment"
     Sheets("log").Cells(1, 3).Value = "Old Status"
     Sheets("log").Cells(1, 4).Value = "New Status"
     Sheets("log").Cells(1, 5).Value = "Old Reason"
     Sheets("log").Cells(1, 6).Value = "New Reason"
     Sheets("log").Cells(1, 7).Value = "Old Action"
     Sheets("log").Cells(1, 8).Value = "New Action"
        If Target.Value <> PreviousValue Then
           Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Now
           Sheets("log").Cells(65000, 2).End(xlUp).Offset(1, 0).Value = Range()
        End If
    End Sub