VBAでデータ移動と計算を行う。ヒューマンエラーを減らす

Option Explicit

Sub 帳票作成()
    Dim a, m, N As Long
    Dim GS As Long
    Dim SaRow, KeRow As Long
    Dim Fsa, Fsb As Variant
        Worksheets("作業シート").Select
        SaRow = Cells(Rows.Count, 2).End(xlUp).Row
'金額合計を計算
        GS = WorksheetFunction.Sum(Range(Cells(2, 6), _
                    Cells(SaRow, 6)))
'罫線を引く範囲
        If SaRow < 27 Then
            KeRow = 39
        Else
            KeRow = 39 + Application.WorksheetFunction _
                        .RoundUp((SaRow - 26) / 35, 0) * 35
        End If
'請求納品見積へテンプレート再構築
        For a = 2 To 4
            Worksheets(a).Select
            With Worksheets(a)
                .Range("A13:G" & KeRow).Borders.LineStyle _
                            = xlContinuous
                .Range("B14:B" & KeRow).Font.Size = 10
                .Range("B13:B" & KeRow).WrapText = True
                .Range("C13:D" & KeRow).HorizontalAlignment = xlCenter
                .Range("E13:F" & KeRow).NumberFormatLocal = "\ #,##0"
'品名のフォントサイズ
                Fsa = 操作パネル.品名F.Value
                If Fsa = "" Then
                    Fsa = 10
                Else
                    Fsa = Val(Fsa)
                End If
                .Range(Cells(14, 2), Cells(KeRow, 2)) _
                            .Font.Size = Fsa
'顧客名のフォントサイズ
                Fsb = 操作パネル.顧客F.Value
                If Fsb = "" Then
                    Fsb = 13
                Else
                    Fsb = Val(Fsb)
                End If
                .Range("B6").Font.Size = Fsb
'発行年月日のテンプレ転記
                With .Range("F3")
                    If 操作パネル.発行年月日.Value = "" Then
                        .Value = "令和　　年　　月　　日"
                    Else
                        .Value = 操作パネル.発行年月日.Value
                    End If
                    .Font.Size = 10
                End With
            End With
        Next a
'請求納品見積シートへデータ転記
        For N = 2 To SaRow
            For m = 1 To 7
                For a = 2 To 4
                    With Worksheets(a)
                        .Cells(N + 12, m) = Worksheets("作業シート") _
                                    .Cells(N, m)
                        .Cells(SaRow + 13, 2) = "税込合計"
                        If SaRow + 13 <> 39 And ((SaRow + 13) - 39) _
                                    Mod 35 <> 0 Then
                            .Cells(SaRow + 14, 2) = "以下余白"
                        End If
                        .Cells(SaRow + 13, 6) = GS
                        .Cells(11, 2) = GS
                    End With
                Next a
            Next m
        Next N
'別のプロシージャー呼び出し
        Call Module2.宛名設定
End Sub

Sub 宛名設定()
    Dim a, ans As Long
    Dim CosNo As Variant
    Dim Res, Ybn, Jus, Ate As Variant
        Res = 0
        Workbooks("見納請3点伝票作成.xlsm").Activate
        Worksheets("宛名の登録").Select
'操作パネルのデータより
        CosNo = 操作パネル.顧客番号.Value
stepB:
        If CosNo = "" And MRK <> 2 Then
            MsgBox "顧客番号が入力されていません。", vbExclamation, _
                        "見納請３点伝票作成"
            GoTo stepA
        Else
            CosNo = Val(CosNo)
            On Error GoTo 0
            On Error Resume Next
            Res = WorksheetFunction.Match(CosNo, Range("B:B"), 0)
            If Res = 0 Then GoTo stepA
        End If
        Ybn = Range("D" & Res).Value     '郵便番号
        Jus = Range("E" & Res).Value     '住所
        Ate = Range("C" & Res).Value     '宛名
        For a = 2 To 4
            With Worksheets(a)
                    .Range("B3") = Ybn
                    .Range("B4") = Jus
                    .Range("B6") = Ate & "　　様"
            End With
        Next a
stepA:
        If Res = 0 Then
            ans = MsgBox("一致する顧客番号はありません。" & vbCrLf & _
                        "正しい番号を入力しますか？", vbYesNo + _
                        vbQuestion, "見納請３点伝票作成")
            If ans = vbYes Then
                CosNo = InputBox(Prompt:="半角数字で顧客番号を" & _
                        vbCrLf & "入力してください。", Title:= _
                        "見納請３点伝票作成")
                操作パネル.顧客番号.Value = CosNo
                GoTo stepB
            Else
                MsgBox "宛名空欄で終了します", vbInformation, _
                        "見納請３点伝票作成"
                Worksheets("請求書").Select
                Range("A1").Select
                Exit Sub
            End If
        End If
        Worksheets("請求書").Select
        Range("A1").Select
        MsgBox "3点伝票の作成が完了しました。", vbInformation, _
            "見積書納品書請求書作成エクセル"
End Sub