Copy Row To Another Sheet On Change Of Value/Update Value To Another Sheet On Change

[bakerman]

Put this in ThisWorkbook.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Sheets("INITIATING DEVICES")
        .PageSetup.PrintArea = .Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Address
    End With
End Sub