Makro ile DÜŞEYARA 'da hata nerede?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Makro ile DÜŞEYARA yapmak istiyorum. sürekli 1004 nolu hata veriyor. Bir yerde küçük bir hata var, ama nerede?

Sub Getir_Yaz()
    Set b = Sheets([A1].Text)
    Set a = Sheets("Bilgi")
    
    a.Select
    Alan = Range(a.[A7].Text).Select
    
    b.Select
    For x = 0 To 3 Step 5
        For y = 0 To 30
                If b.Cells(25 + x, 10 + y) = "" Then
                    GoTo 99
                End If
                b.Cells(25 + 1 + x, 10 + y) = Application.WorksheetFunction.VLookup(b.Cells(25 + x, 10 + y), Alan, 2, 0)
99:
        Next y
    Next x
End Sub

https://s2.dosya.tc/server11/s0lhoo/deneme.rar.html
Saygılarımla

 

[ÖmerBey]

Merhaba,
Kırmızı kısmı silerek deneyiniz.

Alan = Range(a.[A7].Text).Select

 

[Tevfik_Kursun]

Merhaba Sayın Ömer Hocam,
İlginize teşekkür ederim. Çok makbule geçti.
Saygılarımla