列に値見出しを挿入する方法は？

Question

以下のコードは、入力番号に基づいて複数の列を追加しています。作成した列の値/テキストを追加するにはどうすればよいですか？

例：5を入力すると、5つの列が作成されます。私はその列の値を追加したい。

Option Explicit 

Sub Button2_Click() 

    Dim iCountCols 
    Dim colRef As String 
    Dim colRef2 As String 
    Dim colAdd As Worksheet 

    Application.Calculation = xlCalculationManual 
    Application.EnableEvents = False 
    Application.ScreenUpdating = False 

    Set colAdd = ThisWorkbook.Worksheets("RDBMergeSheet") 
    Sheets("RDBMergeSheet").Select 
    Range("M1").Select 

    iCountCols = Application.InputBox(Prompt:="Insert number of columns" _ 
    & "?", Type:=1) 

    If iCountCols <= 0 Then End 

    Selection.Resize(, iCountCols).EntireColumn.Insert Shift:=xlRight 

    Application.Calculation = xlCalculationAutomatic 
    Application.EnableEvents = True 
    Application.ScreenUpdating = True 

End Sub 

カラムの作成と同時に値を挿入したいとします。私は良い理解している場合、私は、入力それが5 columns..Iを作成する数5は、その列の値を追加したい場合は

Answer 1

例..

あなたは列ごとに異なる値を必要とします、ここに行く。

dim col_values_input as string 
dim col_values() as string 

col_value=InputBox("Type your column/s value bellow, delimit them with coma") 
col_values=Split(col_value, ",") 
if col_values.Lenght <> 0 And Not col_values.Lenght > iCountCols Then 
    count = 0 
    for each val in col_values 
     colAdd.range("M1").offset(0,count).value=val 
     count = count + 1 
    next val 
end if 

これをコードの末尾に追加するとうまくいくはずです。