How to join these two VBA codes

[Aretradeser]

I use 2 codes that work perfectly separately; but when I join them, using the "Call" instruction, it doesn't work, and I don't understand why. So I ask you how to join these codes.

'
Sub DeleteRows()
'Call IncluirDatosCopiadosCP    ' It does not work
Application.ScreenUpdating = False
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "Eliminar Jubilados"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
        If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
Application.ScreenUpdating = True
End Sub
'
Sub IncluirDatosCopiadosCP()
    Application.ScreenUpdating = False
    Sheets("Delegacion").Select
    Range("Delegados").Select
    Selection.Copy
    Sheets("DelegacionA").Select
    Range("B2").Select
    ActiveSheet.Paste
    Application.ScreenUpdating = True
End Sub

 

[SQUIDD]

When you say it does not work, you mean it doesnt call it?

Looks like you are just copying named ranges

i would say the below would suffice for your bottom macro?

see edit

Sub IncluirDatosCopiadosCP()
    Range("DelegacionA") = Range("Delegacion")
End Sub

 

[Fluff]

How about

Sub IncluirDatosCopiadosCP()
    Application.ScreenUpdating = False
    Sheets("Delegacion").Range("Delegados").Copy Sheets("DelegacionA").Range("B2")
End Sub

If that doesn't work, you will need to explain in what way it didn't work.

 

[Aretradeser]

How about

Sub IncluirDatosCopiadosCP()
    Application.ScreenUpdating = False
    Sheets("Delegacion").Range("Delegados").Copy Sheets("DelegacionA").Range("B2")
End Sub

If that doesn't work, you will need to explain in what way it didn't work.

Thank you for your work and good response

 

[Aretradeser]

When you say it does not work, you mean it doesnt call it?

Looks like you are just copying named ranges

i would say the below would suffice for your bottom macro?

see edit

Sub IncluirDatosCopiadosCP()
    Range("DelegacionA") = Range("Delegacion")
End Sub

for your work and response

 

[Fluff]

Glad we could help & thanks for the feedback.