kayıt yeri

[mesutaygun70]

Sub Makro9()
Dim GK, KK As Worksheet
Set KK = Sheets("KAYIT")
sor = MsgBox("Kayıt Sayfasına Almak İstiyor Musunuz ?", vbYesNo)
If sor = vbNo Then Exit Sub
son_satir = KK.Range("a65000").End(3).Row + 1
KK.Activate
KK.Range("B1:SF1").Select
Selection.Copy
KK.Range("a" & son_satir).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

mavi kısmı son satır değilde a1 ile a370 arasındaki son satır olarak nasıl değiştirebilirim

 

[systran]

a65000 yazan yeri a370 ile değiştirin