Conflicting Codes HELP!

[Jstump]

I have a formula set up to where when information is added into column 19 on INput page it adds the information into line 36 on Hours. i set certain data to stay in line 35 and tried to get it to delete the data when a line is removed or added and keep the data in line 35. However, that part of the code is interefering with the data being autopopulated into lin 36. I have tried to set it to autopoluating into line 37 or 38 and it still did not help. the first code is the original where it auto added information and the secdon code is what i have now adding (keep the data in line 35 and auto delete when a row is added or deleted. I cant figure out how to make them work together. Ive added mini charts so if you need to work within the workbook to help.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub

    Application.ScreenUpdating = False

    If Target.Column = 16 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(6).Delete
            Else
                .Rows(6).Insert
                .Range("A6") = Target.Value
            End If
        End With
    ElseIf Target.Column = 19 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(36).Delete
            Else
                .Rows(36).Insert
                .Range("A36") = Target.Value
            End If
        End With
    ElseIf Target.Column = 22 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(64).Delete
            Else
                .Rows(64).Insert
                .Range("A64") = Target.Value
            End If
        End With
    ElseIf Target.Column = 25 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(93).Delete
            Else
                .Rows(93).Insert
                .Range("A93") = Target.Value
            End If
        End With
    End If
    
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub

    Application.ScreenUpdating = False

    If Target.Column = 16 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(6).Delete
            Else
                .Rows(6).Insert
                .Range("A6") = Target.Value
            End If
        End With
    ElseIf Target.Column = 19 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(36).Delete
            Else
                .Rows(36).Insert
                .Range("A36") = Target.Value
            End If
        End With
    ElseIf Target.Column = 22 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(64).Delete
            Else
                .Rows(64).Insert
                .Range("A64") = Target.Value
            End If
        End With
    ElseIf Target.Column = 25 Then
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(93).Delete
            Else
                .Rows(93).Insert
                .Range("A93") = Target.Value
            End If
        End With
    End If

    ' Ensure data stays in line 35
    With Sheets("Hours")
        If .Rows(35).EntireRow.Hidden = False Then
            .Rows(36).EntireRow.Delete
            .Range("I35:N35").ClearContents
            .Range("I35").Value = "Straight Total"
            .Range("J35").Value = "OT Total"
            .Range("K35").Value = "Straight $"
            .Range("L35").Value = "OT $"
            .Range("M35").Value = "Weekly Total"
            .Range("N35").Value = "Total"
        End If
    End With

    Application.ScreenUpdating = True
End Sub

Kane Macro copy 2.xlsm
	O	P		R	S		U	V		X	Y
2		Week 1			Week 2			Week 3			Week 4
3	Employee	Employee Name			Employee name			Employee name			Employee name
4	1	Stump, James			Clement, Vincent
5	2	Stump, James			Clement, Vincent
6	3				McCain, Austin
7	4
8	5
9	6
10	7
11	8
12	9
13	10
14	11
15	12
16	13
17	14
18	15
19	16
20	17
21	18
22	19
23	20
Project Input page

Cells with Data Validation
Cell	Allow	Criteria
Y4:Y23	List	=Database!$A$2:$A$10
S4:S21	List	=Database!$A$2:$A$10
V4:V23	List	=Database!$A$2:$A$10
P4:P21	List	=Database!$A$2:$A$10

Kane Macro copy 2.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N		P	Q	R	S	T
1
2
3
4		14-Jan	15-Jan	16-Jan	17-Jan	18-Jan	19-Jan	20-Jan	Straight Total	OT Total	Straight $	OT $	Weekly Total	Total			Straight $	OT $	Weekly Total
5
6	Stump, James								0	0	0	0	0	0
7	Daggy, Dillain								0	0	0	0	0	0
8	Clement, Vincent								0	0	0	0	0	0
9	Clement, Vincent								0	0	0	0	0	0
10
11	Totals	0	0	0	0	0	0	0	0	0	0	0	0	0
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35									Straight Total	OT Total	Straight $	OT $	Weekly Total	Total
36									0	0	#VALUE!	#VALUE!	#VALUE!	0
37
38
39
40
41
42
43
44
45
46
47
48
49
Hours

Cell Formulas
Range	Formula
I6:I9,I36	I6	=IF(N6>40,40,N6)
J6:J9,J36	J6	=IF(N6>40,N6-40,0)
K6:K9,K36	K6	=I6*O6
L6:L9,L36	L6	=(O6*1.5)*J6
M6:M9,M36	M6	=SUM(K6:L6)
N6:N9,N36,N11	N6	=SUM(B6:H6)
B11:M11	B11	=SUM(B5:B10)

 

[mse330]

Try below code ...

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.CountLarge <> 1 Then Exit Sub

Application.ScreenUpdating = False
Application.EnableEvents = False

With Sheets("Hours")
   Select Case Target.Column
      Case 16: If Target.Value = "" Then .Rows(6).Delete Else .Rows(6).Insert: .[A6] = Target.Value
      Case 19: If Target.Value = "" Then .Rows(36).Delete Else .Rows(36).Insert: .[A36] = Target.Value
      Case 22: If Target.Value = "" Then .Rows(64).Delete Else .Rows(64).Insert: .[A64] = Target.Value
      Case 25: If Target.Value = "" Then .Rows(93).Delete Else .Rows(93).Insert: .[A93] = Target.Value
   End Select
   If .Rows(35).EntireRow.Hidden = False Then
      .Rows(36).EntireRow.Delete
      .[I35:N35] = [{"Straight Total","Straight Total","OT Total","Straight $","OT $","Weekly Total","Total"}]
   End If
End With

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[Jstump]

that worked but now it conflicts with this that i had in my "hours" sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim newRow As Long
    Dim formulaRange As Range

    Set ws = ThisWorkbook.Sheets("Hours")

    If Target.Column = 1 Then
        If Target.Columns.Count > 1 Then
            Application.EnableEvents = False
            newRow = Target.Cells(1, 1).Row

            Set formulaRange = ws.Range(ws.Cells(newRow, 9), ws.Cells(newRow, 15))

            formulaRange.Formula = Array( _
                "=IF(N" & newRow & ">40,40,N" & newRow & ")", _
                "=IF(N" & newRow & ">40,N" & newRow & "-40,0)", _
                "=I" & newRow & "*O" & newRow, _
                "=(O" & newRow & "*1.5)*J" & newRow, _
                "=SUM(K" & newRow & ":L" & newRow & ")", _
                "=SUM(B" & newRow & ":H" & newRow & ")", _
                "=FILTER(Database!$C$2:$C$10,Database!$A$2:$A$10=A" & newRow & ","""")" _
                )

            Application.EnableEvents = True
        End If
    End If
End Sub