highlight rows with a macro

Sub Cmpare()
Dim i As Long, LR As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If IsNumeric(Application.Match(.Range("A" & i).Value, Sheets("Sheet2").Columns("A"), 0)) Then .Rows(i).Interior.ColorIndex = 6
    Next i
End With
End Sub

Sub Cmpare()
Dim i As Long, LR As Long, Found As Range
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        Set Found = Sheets("Sheet2").Columns("A").Find(what:=Left(.Range("A" & i).Value, 5), LookIn:=xlValues, lookat:=xlPart)
        If Not Found Is Nothing Then Rows(i).Interior.ColorIndex = 6
    Next i
End With
End Sub

Sub Cmpare()
Dim i As Long, LR As Long, Found As Range
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        Set Found = Sheets("Sheet2").Columns("A").Find(what:=Left(.Range("A" & i).Value, 5), LookIn:=xlValues, lookat:=xlPart)
        If Not Found Is Nothing Then .Rows(i).Interior.ColorIndex = 6
    Next i
End With
End Sub

Sub Cmpare()
Dim i As Long, LR As Long, Found As Range, j As Long
Sheets.Add
On Error Resume Next
ActiveSheet.Name = "Selected"
On Error GoTo 0
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        Set Found = Sheets("Sheet2").Columns("A").Find(what:=Left(.Range("A" & i).Value, 5), LookIn:=xlValues, lookat:=xlPart)
        If Not Found Is Nothing Then
            j = j + 1
            .Rows(i).Copy Destination:=ActiveSheet.Range("A" & j)
            .Rows(i).Interior.ColorIndex = 6
        End If
    Next i
End With
Application.CutCopyMode = False
End Sub