How to Fix Error 429?

Run-time error '429 ': ActiveX component can’t create object

Due to the fact that several reasons can cause the error, I decided to post my particular situation.
I'm doing an update on an application developed in VB6 which uses automation resources of Office via VBA.
The error occurs when I’m trying to copy and paste the table "X" which is in the worksheet "A" to the worksheet "B" using the control "Selection.Copy"

Follows the code snippet for better understanding

Dim xl As Excel.Application
Dim xlw As Excel.Workbook
Dim Linha As Integer
Dim Coluna AS Integer

Set xl = CreateObject("Excel.Application")
Set xlw = xl.Workbooks.Open(ARQUIVO_DE_REFERENCIA)
xl.Visible = True

Sheets("PlanB").Select
Linha = ActiveCell.Row
Coluna = ActiveCell.Column
Sheets("PlanA").Select
Range("A1:I48").Select
Selection.Copy
Sheets("PlanB").Select
Range("A" & Linha + 3).Select
ActiveSheet.Paste
Range(Coluna & ":" & Linha + 5).Select

To analyze the stretch separately I created new applications using both VB6, VBA and VB.NET. In all situations it has not been specified any errors, what means that the error only occurs in the main application

The main reasons that I found in most forums are:
1 - You do not have a required TLB file, ActiveX DLL / OCX;
2 - A necessary TLB or ActiveX DLL / OCX file is present, but it’s not registered in the system;
3 - Run Time files of VB have a newer version than you need to run the project;
4 - A TLB or ActiveX DLL / OCX file is corrupted;

Both alternatives do not seem to sustain my mistake. So, how to fix Error 429?
I am available for further clarification. Since now, I thank the attention and collaboration.