overflow hatası

[bamteli_27]

merhaba arkadaşlar,
aşağıdaki kodu 37768'inci satırdan sonra ki bir değişiklik için çalıştırdığımda " Run-Time Error '6": Overflow " hatasını alıyorum, öncesindeki satırlarda gerekli değişikliği ve mükerrer kayıt sorgusunu yaparak kod sorunsuz çalışıyor.

Sub değiştir()
    If Sheets("VERİ").Range("U4") = "2" Then
    If Sheets("VERİ").Range("T7") <> Empty Then
    Dim sat As Integer
    For sat = 6 To Sheets("VTB").Cells(65536, "F").End(xlUp).Row
    If Sheets("VTB").Cells(sat, "F") = Sheets("VERİ").Range("T7") Then
    MsgBox "[ " & Range("T7").Value & " ] NOLU EVRAK DAHA ÖNCE YAZILMIŞ", vbCritical
    Exit Sub: End If: Next
    End If
    End If
    var_sayı = Worksheets("VERİ").Range("I304").Value
    sat = Worksheets("VTB").Range("A6:A65536").Find(var_sayı, LookIn:=xlValues).Row
    
    Worksheets("VTB").Cells(sat, 1).Value = Sheets("VERİ").Range("I304").Value
    Worksheets("VTB").Cells(sat, 2).Value = Sheets("VERİ").Range("H305").Value
    Worksheets("VTB").Cells(sat, 3).Value = Sheets("VERİ").Range("H306").Value
    Worksheets("VTB").Cells(sat, 4).Value = Sheets("VERİ").Range("H307").Value
    Worksheets("VTB").Cells(sat, 5).Value = Sheets("VERİ").Range("H308").Value
       
Exit Sub
HATA:
MsgBox "Hata : " & Err.Description, vbCritical, "HATA!"

End Sub

hatayı önce koşul sorgusu çalıştığında,

For sat = 6 To Sheets("VTB").Cells(65536, "F").End(xlUp).Row

bu satırda ve sonrasında da,

    sat = Worksheets("VTB").Range("A6:A65536").Find(var_sayı, LookIn:=xlValues).Row

satırında hata veriyor, ayrıca kodun devamında 130 sütunda değişiklik yapıyor, ilginiz için teşekkürler.
dosyanın boyutunun ve ayrıntısının çok fazla olduğu için örnek dosya ekleyemedim, Office 2013 kullanıyorum.

 

[Orion1]

Doğrusu.

Dim sat As long

 

[bamteli_27]

Tesekkurler .
Uyguladim ve hata ortadan kalktı

 

[Orion1]

Tesekkurler .
Uyguladim ve hata ortadan kalktı

Değişken tipleri konusuna çalışmalısınız.