Excel VBAで別シートへの値挿入とPDF保存を自動化するマクロ

Sub createReceipt()
      Dim AreaCount As Integer, NRow As Integer, NColumn As Integer
      Dim NRowLast As Integer, NColumnLast As Integer
      Dim num As Integer
     
      Dim List() As Integer '選択中のセルの行番号を保存する配列
      Dim myList As String '選択中のNameを保存する変数

      Dim rowCount As Integer '選択中のセル数を保存する変数
      Dim i, j, k As Integer 'for文用

      Dim rowNum As Integer '
      Dim ans As Integer
      Dim printSheet As String 'テンプレートシートのシート名
      
      printSheet = "Receipt" 'Receiptシートの指定

      j = 0
      num = 10 '一度に選択できるセルの最大数
      ReDim List(num)
      
      AreaCount = Selection.Areas.Count 'セルの選択範囲の数
      rowCount = Selection.Count '選択中のセル数
      
      If AreaCount = 0 Then
        MsgBox "Please select Customer name"
        Exit Sub
      End If
     
      '選択中のセルの数が最大数numを超えていたら終了
      If rowCount > num Then
       MsgBox "The number of SelectedCell( " & rowCount & " ) exceeds " & num
       Exit Sub
      End If
      
     For i = 1 To AreaCount
       NRow = Selection.Areas(i).Row
       NRowLast = Selection.Areas(i).Row + Selection.Areas(i).Rows.Count - 1
       rowNum = Selection.Areas(i).Rows.Count - 1
        
        '選択中のセルが空だったら終了    
        If ActiveSheet.Range("B" & Selection.Areas(i).Row).Value = "" Then
          MsgBox "There is no Customer Name"
          Exit Sub
        End If
  
        If NRow = NRowLast Then '選択されているセルが単一である場合の処理
           myList = myList & ActiveSheet.Range("B" & NRow) & vbCrLf '選択されているセル（Name列）の値を文字列として結合
           List(j) = NRow 'Listに選択されていたセルの行番号を保存
           j = j + 1

        Else '選択されているセルが単一ではなく連続している複数の場合の処理
         For k = 0 To rowNum 
           myList = myList & ActiveSheet.Range("B" & NRow + k) & vbCrLf '選択されているセル（Name列）の値を文字列として結合
           List(j) = NRow + k 'Listに選択されていたセルの行番号を保存
           j = j + 1
         Next k
        End If
     Next
        
       ' ダイアログを出して確認
       ans = MsgBox("Create " & printSheet & " for " & vbCrLf & myList & " ?", vbOKCancel, "Confirmation")

       If ans = vbOK Then 'ダイアログでOKを押した場合の処理
       
        For i = 0 To num
         
          If List(i) <> 0 Then
           Call insertReceipt(List(i), printSheet) '下記のinsertReceipt関数を呼び出し
           Call printPDF(printSheet, Range("B" & List(i)).Value) '下記のprintPDF関数を呼び出し。ここでは引数としてNameの値を渡している。
          Else
           Exit For
          End If
        Next i
        MsgBox "Receipt is created"
        
       Else  'ダイアログでCancelを押した場合の処理
          MsgBox "Cancelled"
          Exit Sub
       End If
              
  End Sub


Sub insertReceipt(ByVal rowNum As Integer, ByVal printSheet As String)

    'pdfName = ActiveSheet.Range("T1")
    Sheets(printSheet).Range("C4").Value = ActiveSheet.Range("A" & rowNum) 'Date
    Sheets(printSheet).Range("C6").Value = ActiveSheet.Range("B" & rowNum) 'Name
    Sheets(printSheet).Range("C8").Value = ActiveSheet.Range("C" & rowNum) 'Amount
       
End Sub

  ' printSheetがPDF印刷するシート名、customerNameは作成するPDFのファイル名に使う引数
Sub printPDF(ByVal printSheet As String, ByVal customerName As String)
     '下記参照
End Sub

 .PrintArea = "A$1:$E$41" '印刷範囲の指定

 .PrintArea = "A$1:$H$10" '印刷範囲の指定

ChDir "C:\ExcelPDF\" 'カレントフォルダの指定。ここで指定したフォルダにPDFが保存されます。