Guru do Excel e Power BI

Bom dia
Fórmula de formatação:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
If [A1] <> "" Then Exit Sub
Calculate
End Sub

=Lin()=CÉL("lin")

funciona perfeitamente em qualquer intervalo. Como fazer pra ela "pegar" mais de uma linha ao mesmo tempo e formatar.
Preciso formatar duas ou mais linhas contíguas, usando cor diferente pra cada linha. Comparar valores de um linha com outra mas a "movimentação" das linha precisa ser ao mesmo tempo. Grato

Boa tarde.
Veja se era assim ???

=LIN() =CÉL("lin")
=LIN()-1=CÉL("lin")
=LIN()-2=CÉL("lin")
Três regras de formatação com cores diferentes.

Até
Foxtri

Grato pela contribuição