Excel VBA Worksheet Change on Cell input....so close...please help!

[CastingDirector]

Hi (Months at this yet still a newbee)
So this 'Private Sub Worksheet_Change(ByVal Target As Range)' is making my brain melt! (There are two events on a sheet which I've combined). Individually they both execute fine when the other is removed. Not so much together. One should save the active workbook with two separate cell input names while the other moves data into another sheet when it meets the condition. Here's the code with hashtags and my sincere thanks.

'Private Sub Worksheet_Change(ByVal Target As Range)
'Application.ScreenUpdating = False

'If Intersect(Target, Range("E1", "E8")) Is Nothing Then Exit Sub
'Dim FPATH As String
'FPATH = "C:\Users\Accounting\XXXXXX\Excel Schedules\"
'ActiveWorkbook.SaveAs FPATH & Range("E1").Value & " " & Range("E8").Value2 & ".xlsm"
'Application.ScreenUpdating = True
'Application.ScreenUpdating = False
'If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
'If Intersect(Target, Range("A:A")) = "No to Material" Then
'Target.EntireRow.Copy Sheets("Non Avail").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'Target.EntireRow.Cells.SpecialCells(xlConstants, xlTextValues).ClearContents

'End If

'Application.ScreenUpdating = True

'End Sub

[mehmetcik]

Ok. This is simple,

Look at your two equations that cause your macro to stop working.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

'*****************************************************************
'If your target cell is not in this range then the macro will not even see your second piece of code
'If Intersect(Target, Range("E1", "E8")) Is Nothing Then Exit Sub
'Replace with:
If Intersect(Target, Range("E1", "E8")) Is Nothing Then goto 100
'*****************************************************************

Dim FPATH As String
FPATH = "C:\Users\Accounting\XXXXXX\Excel Schedules\"
ActiveWorkbook.SaveAs FPATH & Range("E1").Value & " " & Range("E8").Value2 & ".xlsm"
goto 200

100  If Intersect(Target, Range("A:A")) Is Nothing Then goto 200
Target.value <> "No to Material" Then goto 200
Target.EntireRow.Copy Sheets("Non Avail").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Target.EntireRow.Cells.SpecialCells(xlConstants, xlTextValues).ClearContents

200 Application.ScreenUpdating = True

'End Sub

[CastingDirector]

Wow mehmetcik
It only looks simple...especially to a valued contributor not to a newbee who has been "Frankensteining" code! This has been the most helpful response I received on any forum. Please accept my sincere thanks. I'm almost finished...its taken 6 months.