Son satıra kayıt sorunu

[ferhatgurbuz]

Sub Kaydet_Click()
Sheets("Personel_Bilgi").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
son = [A65536].End(3).Row + 1
Cells(son, "A") = son - 10
'ActiveCell.FormulaR1C1 = "=ROW()-10"
'Selection.Copy
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 3).Value = TextBox2.Text
ActiveCell.Offset(0, 4).Value = TextBox3.Text
ActiveCell.Offset(0, 5).Value = TextBox4.Text
ActiveCell.Offset(0, 6).Value = TextBox5.Text


Yukarıdaki kod ile kayıt yapıyorum. Ama veri sayfasında sayfanın tamamında olması zorunlu formüller var. bu formüller var iken bu sekilde sayfanın dışına kayıt yapıyor. Benim istediğim ya formülleri görmeyerek en son dolu hücreden sonrasına kayıt yapsın yada yukarıdaki listede olan sutunlara kayıt yapsın.