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

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

Ok. This is simple,

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

Please Login or Register  to view this content.

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.