Emin olmak için 2 adet dosya hazırladım.Dosya adlarını okuyunuz.

Tüm sayfalardaki alttaki kodlar silinmeli.

Private Sub Worksheet_Change(ByVal Target As Range)

''''''''''''''''''Satýrlara Tablo Yapmak''''''''''''''''''''''''''''''''''''''''''

Range("A2:AJ10000").Borders.LineStyle = 0

Range("A2:AJ" & [B10000].End(3).Row).Borders.LineStyle = 1

Range("A2:AJ" & [B10000].End(3).Row).Borders.LineStyle = xlContinuous

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub