B列のセルの値の取り得るデータは
・空白
・日付　　　　例：2017/01/0
・A701-01　 英字＆3桁数字＆ハイフン＆2桁数字

B列の複数行をピンポントで選択して、マクロを実行
・空白、日付の場合は、なにもしない
・A701-01　→　A701-01+1　「+1」の部分を追加
「+1」部分についてはマクロボタンを区別して「+0」〜「+5」をそれぞれ選べるようにする

作ってみたのが↓

　Sub Plus1()
　'
　' セルの文字列に”+1”を追加する
　'
　Dim cell As Range
　For Each cell In Selection
　 cell.Formula = Left(cell, 7) & "+1"
　Next

これだと、選択したセルの値に強制的に「+1」を付加することができるけど
まずB列以外を誤って選択した場合、実行をキャンセルする
空白もしくは日付データのセルを誤って選択した場合スキップする
という条件が未設定なわけですが

初心者のため、やり方が解りません
何卒ご教授お願いします