VBAの構文を作りましたが、うまくいきません。困った・・

質問

以下でVBAでつくりたいのです。
もし、○○株式会社なら
納品書シートのK3のセルを選ぶ

その○○株式会社のなかでも○○センターの分なら
「NOなし」のメッセージと「○○セ）運賃出せ」のメッセージがでる
もし、NOが入っていなかったら、納品書をしたまま印刷
NOが入っていたら、印刷なしで、売上日報表のシートへ戻る
そこで私が手打ちでNOを消す作業をしたいと思います。
NOを手打ちで消したあと、手動で納品書シートに切り替えて納品書にある印刷ボタンをクリックして印刷（マクロボタンを納品書シートに作っています）

○○株式会社で○○センターの分でないなら、
NOが入っていたら、納品書の画面を表示したまま、印刷
NOが入っていなかったら、NO・確認のメッセージが出て、売上日報表シートへ戻る
そこで、私が売上日報表に手打ちでNOを入れる作業をしたいと思います。
NOが入ったら、納品書シートを私が手動でクリックするので、納品書シートにある印刷のマクロボタンをまた押すと印刷

○○株式会社でないなら、NOあるなしにかかわらず印刷　　
以上です。

○○センターの分はNOが入っていたら印刷、NOが入っていなかったら、メッセージが出て、売上日報表に戻り、印刷されないようになってしまいます。その逆になってほしいのですが、難しいです。
どうすれば、うまくいくのでしょうか？
手打ちの部分は構文は要りません。
下記は構文です。
Public Sub msgbox○○会社()
If Range("A5").Value = "○○会社" Then
Worksheets("納品書").Range("k3").Select
If Worksheets("納品書").Range("B17,B6") = "○○センター" Then
MsgBox "ＮＯなし"
MsgBox "○○セ）運賃出せ"
If Worksheets("納品書").Range("k3").Value < 0 Then
'納品書画面を表示
　Worksheets("納品書").Select
Else
Worksheets("納品書").Select
　　End If
Else
Worksheets("納品書").Select
End If
If Range("k3").Value > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Else
Worksheets("納品書").Select
msgBox "ＮＯ" & vbCrLf & "確認"
Worksheets("売上日報表").Select
　　 End If
　　　Else
　ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, 　　　　Copies:=1, Collate _
:=True
　　End If
　　End Sub
間違いはどこですか？

回答No.6

n-jun

ANo.4です。

zap35さん
>VBE画面からコピーしても半角空白やタブが入りますから、私の場合は手間ですが一旦エディタに貼り付けて、
>文字置換してから回答欄に貼り付け直しています。ご参考まで。
大変参考になりました。ありがとうございます。

質問者様、横入り失礼致しました。