Kodda düzeltme

[Nadir]

Aşağıdaki kodda sütun aralığı var. Hücre aralığı olarak belirleyebilir miyiz?
Referans alınan alan FATURA sayfasındaki B3:B502 arası olacak. B502'yi geçmesin.

Sub aktar()
Dim s As Integer
Dim sat As Integer
Dim say As Integer
Dim alan As Range
sat = Sheets("KAYIT").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row
son = Sheets("FATURA").Cells(Rows.Count, "B").End(3).Row
For s = 3 To son Step 1
If Sheets("FATURA").Cells(s, "B") <> "" Then
    If alan Is Nothing Then
        Set alan = Sheets("FATURA").Range("B" & s & ":G" & s & ",L" & s)
    Else
        Set alan = Union(alan, Sheets("FATURA").Range("B" & s & ":G" & s & ",L" & s))
    End If
End If
Next s
alan.Copy
Sheets("KAYIT").Range("B" & sat).PasteSpecial xlPasteValues
End Sub

 

[PLİNT]

Merhaba
Kodlarınızda ilgili bölüme aşağıdaki kırmızı bölümü ekleyip denermisiniz?

'........
 son = Sheets("FATURA").Cells([COLOR="Red"]502[/COLOR], "B").End(3).Row
For s = 3 To son Step 1
If Sheets("FATURA").Cells(s, "B") <> "" Then 
'.....

 

[Nadir]

Çok teşekkürler sayın PLİNT.. Bu şekilde oldu.