振替用データを選択転記するVBA。請求元と振込元に両対応

Sub 利用者側設定A()
    Dim i As Long
        With Worksheets("入力シート")
            For i = 1 To 15
                .Cells(4, 1 + i) = .Cells(11, i + 26).Value
            Next i
                .Cells(5, 3) = .Cells(12, 30).Value
        End With
End Sub

Sub 利用者側設定B()
Dim i As Long, j As Long
    With Worksheets("入力シート")
        For i = 1 To 15
            .Cells(4, 1 + i) = .Cells(17, i + 26).Value
        Next i
            .Cells(5, 3) = .Cells(18, 30).Value
    
        For j = 1 To 8
            .Cells(4, 17 + j) = .Cells(22, j + 27).Value
        Next j
            .Cells(14, 3) = .Cells(24, 28).Value
            .Cells(16, 3) = .Cells(26, 28).Value
            .Cells(8, 2) = .Cells(29, 28).Value
    End With
End Sub

Sub 入力シート転記()
    Dim aR, aN As Long
    Dim aDay, aCus, aAd, aNote As String
    Dim aBill, i, j As Long
    Dim aTax, Bnc, CP As Integer
        With Worksheets("発行データ")
            aR = ActiveCell.Row
            aN = .Range("A" & aR).Value
            aDay = .Range("B" & aR).Value
            aCus = .Range("C" & aR).Value
            aBill = .Range("D" & aR).Value
            aAd = .Range("E" & aR).Value
            aNote = .Range("F" & aR).Value
            Bnc = Len(CStr(aBill))
        End With
        With Worksheets("入力シート")
            .Range("B8") = aN & " , " & aDay & vbCrLf & aNote
            .Range("C16") = aCus
            .Range("C14") = aAd
            CP = 8 - Bnc
            If CP > 0 Then
                For j = 1 To CP
                    .Cells(4, 17 + j).Value = ""
                Next j
            End If
            For i = 1 To Bnc
                .Cells(4, 17 + CP + i).Value = Mid(aBill, i, 1)
            Next i
        End With
End Sub

Option Explicit

Private Sub データ選択_Click()
        Call Module1.入力シート転記
End Sub