Ошибка времени выполнения VBA. «1004»: область копирования и область вставки имеют разные размеры

Question

Я отлаживаю макрос VBA и получаю сообщение об ошибке «Ошибка выполнения. '1004': информация не может быть вставлена, потому что область копирования и область вставки имеют разные размер и форму».

Вот мой код:

   Sub Test()
Dim s1 As Worksheet, s2 As Worksheet
Dim m As Long, i As Long, n As Long
Dim Val As Variant

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
n = 1
m = 1
Val = s1.Range("B1").Value

For i = 1 To Columns.Count
    If s2.Cells(1, i).Value = Val Then
        s2.Cells(1, i).EntireColumn.Copy Destination:=s1.Range("B4")
        m = m + 1
        
    End If
Next i
End Sub

Пожалуйста, помогите

Лист 1:

Sheet 2: Лист2

Изменить:

Я попробовал INDEX / MATCH, как предлагал BigBen, и это сработало. Вот формула: = INDEX (Sheet2! $ A2: $ E2, MATCH (Sheet1! $ B $ 1, Sheet2! $ A $ 1: $ E $ 1,0))

Но если бы кто-нибудь мог помочь мне с кодом VBA, было бы здорово.

Спасибо