Копирование данных из одной таблицы в другую согласно названиям строк и столбцов

im x as Range, y as Range

Set x=Range(„A:A“)
Set y=Range(“B:D”)
Set x=y

Sub Макрос1()
Dim x As Range, y As Range
Set x = Range("A:A")
Set y = Range("B:D")
Set x = y
Do
Windows("Исходные данные.xls").Activate
Sheets("Лист3").Select
If Cells(i, 2) <> "" Then
i = i + 1
End If
Loop
 
Do
Windows("Копия.xls").Activate
Sheets("Лист3").Select
If Cells(i, 1) = x Then
Cells(i, 2) = y
End If
 
Loop
End Sub

Sub www()
    With Range("B2:d6")
        .Formula = _
        "=VLOOKUP(RC1,'[Исходные данные.xls]Лист3'!R2C1:R6C4," & _
        "MATCH(R1C,'[Исходные данные.xls]Лист3'!R1C1:R1C4,0),0)"
        .Value = .Value
    End With
End Sub

Sub www()
Dim s$, wb As Workbook: s = ",'[Исходные данные.xls]Лист3'!"
Set wb = GetObject(ThisWorkbook.Path & "\" & "Исходные данные.xls")
    With ThisWorkbook.Sheets("Лист3").Range("B2:d6")
        .Formula = _
        "=VLOOKUP(RC1" & s & "R2C1:R6C4," & _
        "MATCH(R1C" & s & "R1C1:R1C4,0),0)"
        .Value = .Value
    End With
    wb.Close 0
End Sub

Sub Макрос1()
Dim RI As Range, RC As Range, CI As Range, CC As Range
Set RI = Workbooks("Исходные данные.xls").Worksheets("Лист3").UsedRange
Set RC = Workbooks("Копия.xls").Worksheets("Лист3").UsedRange
For Each CI In RI
    For Each CC In RC
      If RI(1, CI.Column) = RC(1, CC.Column) And RI(CI.Row, 1) = RC(CC.Row, 1) Then CC = CI
    Next CC
Next CI
End Sub

If CC=" " Then CI = ""