Ændring af formel som kan slette en værdi i en række celler

Jeg har denne formel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1") = ""
End Sub

Som sletter en celle hvis en anden celle ændres.

Det virker jo bare.

Jeg skal lave det på 20 celler under hinnanden. Skal jeg så kompiere koden 20 gange og rette cellereferencerne eller kan jeg gøre noget smart?

Rettes F8 slettes G8
Rettes F9 slettes G9
...
Rettes F27 slettes G27