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

That's pretty awesome. And I will be able to use this on another workbook. I did have to fix it up a bit.
The only thing I get confused about is when you do for the "CAST" sheet: .Rows((Rw - 4) * 19 + 1 & ":" & (Rw - 3) * 19)
I'm guessing your saying start at row 0 (Rw - 4), then hide the next 19 rows, then add 1 blank row(?), and the second part would start at row 1 and hide the next 19 rows?
That's where I'm at a bit of a loss.

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Change_BE Target
Worksheet_Change_VS Target
End Sub

Private Sub Worksheet_Change_BE(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
End If
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change_VS(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("I4:I33")) Is Nothing Then
    blHide = (Target.Value = ""): Rw = Target.Row
    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
    With Sheets("Vendor Sales")
            .Unprotect (sPW)
            .Rows(Rw).Hidden = blHide
            .Rows(Rw + 34).Hidden = blHide
            .Rows(Rw + 68).Hidden = blHide
            .Protect (sPW)
    End With
End If
Application.ScreenUpdating = True
End Sub