makro ile excelde çizgi çizme

[kontto]

Arkadaşlar sayfa1 a1 hücresine gidiğim bilgileri sayfa2 de alt alta ekletebiliyorum ancak sayfa2 de alt alta eklerken eklediğim verilerin etrafının çizgi ile otamatik olarak çizilmesini istiyorum. Lütfen yardım edin. Bir tane örnek liste gönderiyorum

 

[parametre]

Range("A1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

bu makro ile kalın cizgi cizebilirsin ben a1 için yaptım

 

[Civan Jack]

Sn. parametre şöyle yapabilir miyiz.
Resimde gösterdim. Bakar mısınız ?