Macro Running With Columns From A To H

I have a macro running with columns from A to H and ''infinite'' rows
+conditionnal formating and one formula for the value in column D
I'd like to add one more condition, but I can't figure how...

*I'd like to add a step to the macro on sheet1 to automatically move a whole row (a to h) to sheet2 as soon as my equation in column D find a value = 0

after each row is transfered, i'd like to sort it in a descending order on sheet2 based on the number value in column A

what to add to get this to work

Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Only run if 1 cell is changed
If Target.Column 8 Then Exit Sub 'Only run if change is in Column "F"
If Target = Cells(Target.Row, "A") Then 'Check to see if entry matches column "A"
Else:
MsgBox "Invalid entry"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Range(Cells(2, 1), Cells(Target.Row, 8)).Sort Key1:=Cells(2, 8), Order1:=xlDescending
End Sub