Macro pour copier les lignes

bonjour
veuillez m'ader a trouvé une solution c'est urgent merci
Quelles sont les lignes de code que je dois mettre dans ma macro excel pour résoudre le problème suivant
comparrer entre les lignes du tableau ex Ligne 2 - ligne 1; ligne3-ligne2; ligne4-ligne3 etc...
si le resultat est 1 ou 0 la ligne saffiche en verre sinon copier la ligne en bas du tableau

et voici ma tentative

Sub test()
    Dim I As Long
    For A = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(A, 1).Value - Cells(A - 1, 1).Value = 0 Or _
            Cells(A, 1).Value - Cells(A - 1, 1).Value = 1 Then
            Cells(A, 1).Interior.ColorIndex = 14
        Else
            Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = Cells(A, 1).Value
        End If
    Next A
End sub