Combine codes into one macro

Hi,

I'm very new to this. I have two codes I would like to combine for a single macro because I can't get the second code to run in Sheet 3. The first code is in the Sheet 3 View Code box.

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 18 Then
  If Target.Address = "$R$44" Then
    Rows("45:93").EntireRow.Hidden = Len(Target) = 0
  ElseIf Target.Address = "$R$93" Then
    Rows("94:132").EntireRow.Hidden = Len(Target) = 0
  End If
End If
End Sub

and the second code is in a module created from Sheet 3.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A8")) Is Nothing Then
    Range("O152").Value = Range("O152").Value
End If

End Sub

Currently, the second code (in module 1) is not working on Sheet 3, but it does work on other sheets where I have it in the Sheet View Code box of the sheet.

When I look in the View Macro's box I see no macros. Am I missing a step or something?

Thanks,

Russ