求VBA代码，2007EXCEL 光标置于“单元格”，此单元格“整行下网格线”或者行的“下划线“变粗（或变色）

Private r1 As Long '前一个选定的行号
public Const r0 = 65536 '可以调整为不使用的行号
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If r1 > 0 Then
Rows(r0).Copy
Rows(r1).PasteSpecial Paste:=xlPasteFormats
End If
r1 = Target.Row
Rows(r1).Copy
Rows(r0).PasteSpecial Paste:=xlPasteFormats
Rows(r1).Interior.ColorIndex = 6
Rows(r1).Borders.ColorIndex = 5
Application.CutCopyMode = False
Target.Select
Application.EnableEvents = True
End Sub

'在退出时，需要恢复：
'在ThisWorkbook中，加入以下4行代码(删除第一个')
'Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Sheets("Sheet1").Select 'Sheet1， 需要调整为调整了颜色所在的表名称
'Range("A65536").Select
'End Sub追问

public Const r0 = 65536 '可以调整为不使用的行号

代码复制进去，这段显示红色，为什么？是全部复制粘贴吗？