Sub Düğme2_Tıklat()
Set s2 = Sheets("Sheet1")
son2 = s2.[A65536].End(3).Row
For sira = 1 To 405 Step 5

adim = sira * 5
   Range("A" & sira & ":E" & adim).Select
       Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
       Selection.Borders(xlEdgeRight).Weight = xlMedium
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
       Selection.Borders(xlEdgeTop).Weight = xlMedium
       Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
       Selection.Borders(xlEdgeBottom).Weight = xlMedium
       Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
       Selection.Borders(xlEdgeLeft).Weight = xlMedium
    Next
End Sub

 

Bu komut A1: ile E5 arasını seçip ve düzenli olarak alt alta inen satırları seçip, dış kenarlık veriyor.