Guten Abend zusammen!

Ich baue gerade ein CRM-System aus dem Internet nach. Nun soll sich die CRM-Eingabemaske mit der Auswahl passend zum Kunden verändern. Die Kundendaten ziehen sich (Code2), allerdings muss ich dann jedes mal den Code neu laufen lassen. Damit es nach der Auswahl geschieht, gibt es Code1. Jedoch bekomme ich dabei folgende Fehlermeldung:

Fehlermeldung: Compile Error: Expected Variable or procedure, not module

Hier der Link zum Video: https://www.youtube.com/watch?v=Ry3PYTMbskg Timestamp: Minute 51 - 53

Ich freue mich über jegliche Hilfe! Vielen Dank vorab!

Code1 (worksheet): 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing And Range("B10").Value <> Empty Then Customer_Load
End Sub

Code2 (Module):

Sub Customer_Load()
Dim CustRow As Long, LastInvRow As Long, CustCol As Long
With Sheet1
 If .Range("B10").Value = Empty Then
    MsgBox "Please select a correct customer name from the list"
    Exit Sub
    End If
    CustRow = .Range("B10").Value
    
    'Clear existing data
    .Range("B12,E6,J6,E12,E8,J8,E10,J10,J12,E16,E18,E20,E22,E24").ClearContents 'Clear content of customer cells
    .Range("J21:J35,L21:L35,U6:U12,T22:X35").ClearContents  'Clears all other remaining cells
    
    For CustCol = 1 To 15
        .Range(Sheet2.Cells(1, CustCol).Value).Value = Sheet2.Cells(CustRow, CustCol).Value
    Next CustCol
    .Shapes("ExistCustGrp").Visible = msoCTrue
    .Shapes("NewCustGrp").Visible = msoFalse
    .Shapes("SaveContBtn").Visible = msoFalse
    .Shapes("ExistContGrp").Visible = msoCTrue
    
    LoadContacts 'Loads all contacs
    
    'Load Invoice (Meeting)
    LastInvRow = Sheet4.Range("A9999").End(xlUp).Row
    Sheet4.Range("J3:K99999").ClearContents 'Clears any previous results
    Sheet4.Range("A2:C" & LastInvRow).AdvancedFilter xlFilterCopy, criteriaRange:=Sheet4.Range("G2:G3"), CopyToRange:=Sheet4.Range("J2:K2"), Unique:=False
    .Range("J21:K35").Value = Sheet4.Range("J3:K18").Value 'Bring in all Invoice Data (Meetings)
    
    .Range("B6").Value = False 'Set new customer to false
    End With
End Sub

Sub LoadContacts()
Dim LastContRow As Long
With Sheet1
 LastContRow = Sheet3.Range("A99999").End(xlUp).Row
 Sheet3.Range("L3:P99999").ClearContents 'Clear previous results
 Sheet3.Range("A3:F" & LastContRow).AdvancedFilter xlFilterCopy, criteriaRange:=Sheet3.Range("J2:J3"), CopyToRange:=Sheet3.Range("L2:P2"), Unique:=False
 .Range("N22:Q35").Value = Sheet3.Range("L3:P18").Value 'Copy over contacts

End With
End Sub