Need help with VBA code. Tons of code seperated in two, second part of code doesn't work.

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, blHide As Boolean, Rw As Long
Const sPW As String = "pass1234"
Application.ScreenUpdating = False
    '==================== Beauty Expert ====================
If Not Intersect(Target, ActiveSheet.Range("E4:E33")) Is Nothing Then
    blHide = (Target.Value = ""): Rw = Target.Row
    For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
        With ws
            .Unprotect (sPW)
            .Rows(Rw).Hidden = blHide
            .Rows(Rw + 41).Hidden = blHide
            .Rows(Rw + 82).Hidden = blHide
            .Rows(Rw + 123).Hidden = blHide
            .Protect (sPW)
        End With
    Next
    With Sheets("Extra Week")
        .Unprotect (sPW)
        .Rows(Rw).Hidden = blHide
        .Protect (sPW)
    End With
    With Sheets("Cosmetician Sales")
        .Unprotect (sPW)
        .Rows(Rw).Hidden = blHide
        .Rows(Rw + 31).Hidden = blHide
        .Protect (sPW)
    End With
    With Sheets("CAST")
        .Unprotect (sPW)
        .Rows((Rw - 4) * 19 + 1 & ":" & (Rw - 3) * 19).Hidden = blHide
        .Protect (sPW)
    End With
    With Sheets("Daily Sales Tracking")
        .Unprotect (sPW)
        .Rows((Rw - 4) * 2 + 382 & ":" & (Rw - 4) * 2 + 383).Hidden = blHide
        .Columns((Rw - 3) * 6 + 4).Hidden = blHide
        .Columns((Rw - 3) * 6 + 5).Hidden = blHide
        .Protect (sPW)
    End With
End If
Application.ScreenUpdating = True
End Sub

Note that I've revised some of the earlier code to make it easier for people to understand and, hence, maintain.