Run-time error 7 out of memory vba

This is my first post here and second day trying to use VBA to solve some problems/shortcuts in Excel (I'm learning by trial and error).
Using macros and help from this forum I was able to sort some code that I was happy with.
Problem is when I use second macro (that I found on the net-which is working in blank workbook) I get "Run-time error 7 out of memory"
in first macro which I am not using at the time.

The problem is in the third line "If Target.Column = 20 And Target.Value = "B" Then"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
With Sh
If Target.Column = 20 And Target.Value = "B" Then
    'ThisRow = Target.Column
    'If Target.Value = "B" Then
    ActiveCell.Offset(-1, -7).Select
    Selection.Copy
    ActiveCell.Offset(0, -3).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    'Range("B25").Select
    Selection.NumberFormat = "dd.mm.yyyy."
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(0, -9).Select
    Selection.Style = "In Position"
    Else
If Target.Column = 20 And Target.Value = "S" Then
ActiveCell.Offset(-1, -7).Select
    Selection.Copy
    ActiveCell.Offset(0, 8).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    'Range("B25").Select
    Selection.NumberFormat = "dd.mm.yyyy."
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(0, -20).Select
    ActiveCell.Resize(, 11).Select
    Selection.Style = "Disabled"
    Else
    If Target.Column = 20 And Target.Value = "W" Then
    ActiveCell.Offset(-1, -18).Select
    Selection.Style = "Waiting"
    End If
    End If
End If
End With
End Sub

Thanks for help in advance.

Hi,

How big is the file?
Have you got any other applications or Excel workbooks open at the same time? If so close them all and see if that helps.
Is there only one version of Excel open?

Hi,

In the absence of the workbook we'll have to guess.

It may be that the action of code 2 is firing the code 1 macro many times. i.e. every time the many code 2 instructions change the Data sheet.
What happens if you start the code 2 macro with the instruction
Application.EnableEvents = False
and finish it with
Application.EnableEvents = True

Why are you using the Workbook Sheet Change event? Are you really wanting it to fire whenever anything is changed anywhere?
If you use it on a sheet other than the Data Sheet used by code 2, use the Worksheet Change event instead.

Part of your problem is that you are using a workbook.sheetchange event. So, when a change is made in any cell in any sheet the event is triggered. Your second macro is changing some sheet and, therefore calling the sheetchange event code. The sheetchange event code is making further changes and, thus calling itself: the changes are calling changes that are calling changes... until you run out of memory.
You need to turn off event handling while the code is modifying the sheets:

Sub GetFinvizData()
     Application.EnableEvents = False
...

     Application.EnableEvents = True
End Sub

and:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'  ** Check if in Column 20 and exit if not, else turn off event handling and carry on **

     If Target.Column <> 20 Then Exit Sub
     Application.EnableEvents = False

' ------------------- use select case instead of If..Then's

     Select Case Target.Value
          Case Is = "B"
              {do  "B" stuff}
          Case Is = "S"
              {do "S" stuff}
          Case Is = "W"
              {do "W" stuff"}
     End Select
     Application.EnableEvents = True
End Sub