Necesito que la macro se desplace vertical entre filas

Buenos días tengo la siguiente macro que protege las celdas unas ves se escribe en ellas sin embargo tengo un inconveniente no logro hacer que la macro o la condición se desplace hacia abajo es decir que pase a la fila 6 luego a la 7 y así sucesivamente tal cual esta escrita la condición solo se cumple en la fila 5

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub

mil gracias quien pueda ayudarme !!