VBA 連動プルダウンの値クリアの処理でフリーズする

VBA

1Private Sub Worksheet_Change(ByVal Target As Range) 2 Dim r As Range 3 Set r = Target 4 If Target.Row >= 1 And Target.Column = 3 Then 5 Call Clear(r) 6 End If 7End Sub 8 9Sub Clear(ByVal r As Range) 10 Dim i As Long 11 For i = 3 To 4 12 Cells(i, 3).ClearContents 13 Next i 14End Sub

添付のようにプルダウンが選択済みであるとして、
上の階層のプルダウン値が変更された場合、下の階層の値をクリアしたいです。
そこでVBAを書いたのですが動作がかなり重く、
原因を教えていただきたいです。