【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

あるセルの値が、常に、
　　空白／ひらがな文字列／全角カタカナ文字列／半角カタカナ文字列
のいずれかです。また、文字列にはスペースが混じっています。

これを、どんな場合でも、スペースなしの半角カタカナ（空白は空白のまま）に変更したいです。
どのようにVBAコードを書けばいいのか教えてください。
よろしくお願いします。