Macro works but not in combination with other macros

Dear all,

i have this macro which filters and copies some information (dpwlöschenkopierenfiltern). It works fine on its own. However as soon as I try to combine it with a diffrent macro (ldplöschenfiltern) it stops working.

Any help would be greatly appreciated!

Sub dpwlöschenkopierenfiltern()
'
' dpwlöschenkopierenfiltern Makro
'

'
    Application.CutCopyMode = False
    Columns("A:H").Select
    Selection.Delete Shift:=xlToLeft
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    ActiveSheet.Shapes("Button 1").IncrementLeft 750.6
    ActiveSheet.Shapes("Button 1").IncrementTop -10.2
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.AutoFilter
    ActiveSheet.Range("$D$1:$D$136").AutoFilter Field:=1, Criteria1:= _
        "direkte TN/innen-bezogene Leis"
    Columns("A:C").Select
    Selection.Copy
    Sheets("DPW").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("LDP").Select
    
End Sub

Sub ldplöschenfiltern()
'
' ldplöschenfiltern Makro
'

'
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:D").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$D$1165").AutoFilter Field:=4, Criteria1:="<>"
    Columns("A:C").Select
    Selection.Copy
    Sheets("LDP mit Nullen").Select
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:C").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$1048408").AutoFilter Field:=3, Criteria1:=">0", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$1:$C$1048408").AutoFilter Field:=2, Criteria1:=">0", _
        Operator:=xlAnd
    Columns("A:C").Select
    Selection.Copy
    Sheets("LDP").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("LDP").Select
    
'next Macro

End Sub

Info:

Windows Version: Microsoft Windows 10 Pro
Excel Version: Microsoft Office Standard 2016

I solved it! The problem was I didn't activate the sheet! I solved it with Sub ActivateSheet()