If then を使って、空白のセルを作りたい！！

sae_wood 2002-09-12 14:23:12 No: 76119 IP: [192.*.*.*]

教えてください。
VBAで、条件に合わせて空白のセルを作るために
If then を使って、やってみたのですが、動きませんでした。
以下私の乏しい知識で組んだ記述です。

Sub blankmake()

    If H6 = "Ｐ設２" Then
       J6 = ""
    End If

End Sub

エクセルのセル H列に、各部署が並んでおり、セルJ列を
上記のように、条件に合わせて、ブランクにしたいのです。
どなたか、教えて下さい。