＜エクセルマクロ＞データ群の並列（条件付き）

例示に合わせて作成してみやした。

Option Explicit

Dim sN              As String
Dim lN              As Long
Dim sColumn         As String
Dim sColumn_Left    As String
Dim lRow            As Long
Dim lCounter        As Long

Public Sub Macro1()
On Error GoTo Macro1_Error

Dim sColumn     As String

    sN = InputBox("変数ｎを指定して下さい？", "Sheet2のコピー元件数指定")
    lN = CLng(sN)
    
    sColumn = InputBox("貼りつける列はどこにしますか？", "列選択", "X")
    sColumn = UCase(sColumn)
    
    '入力チェック＆左列決定
    If LenB(sColumn) < 2 Or LenB(sColumn) > 4 _
    Then
        MsgBox "Input Error 001": GoTo Macro1_Exit
    End If
    Select Case LenB(sColumn)
        Case 2
            If sColumn < "B" Or sColumn > "Z" _
            Then
                MsgBox "Input Error 002": GoTo Macro1_Exit
            End If
            sColumn_Left = Chr(Asc(sColumn) - 1)                    '<= 左列決定
        Case 4
            If MidB(sColumn, 1, 2) < "A" Or MidB(sColumn, 1, 2) > "Z" Or _
               MidB(sColumn, 3, 2) < "A" Or MidB(sColumn, 3, 2) > "Z" _
            Then
                MsgBox "Input Error 003": GoTo Macro1_Exit
            End If
            If MidB(sColumn, 3, 2) <> "A" _
            Then
                sColumn_Left = MidB(sColumn, 1, 2) _
                               & Chr(Asc(MidB(sColumn, 3, 2)) - 1)  '<= 左列決定
            Else
                If MidB(sColumn, 1, 2) <> "A" _
                Then
                    sColumn_Left = Chr(Asc(MidB(sColumn, 1, 2)) - 1) _
                                   & "Z"                            '<= 左列決定
                Else
                    sColumn_Left = "Z"                              '<= 左列決定
                End If
            End If
    End Select
    
    '積み下げ処理
    Sheets("Sheet1").Select
    lCounter = 0
    lRow = 1
    Do Until IsEmpty(Sheet1.Range(sColumn_Left & CStr(lRow)).Value)
    
        lCounter = lCounter + 1
        If lCounter > lN _
        Then
            lCounter = 1
        End If
    
        Sheet2.Range("A" & CStr(lCounter)).Copy
        Sheet1.Range(sColumn & CStr(lRow)).Select
        ActiveSheet.Paste
    
        lRow = lRow + 1
    
    Loop
    
Macro1_Exit:
    If Application.CutCopyMode = xlCopy _
    Then
        Application.CutCopyMode = False
    End If
    
    MsgBox "Finished"
    
    Exit Sub
    
Macro1_Error:

    MsgBox "!! ERROR !!" & vbCr & vbCr & Err.Description

End Sub

Cellsを使うと、左列決定が楽になると思いますが、

敢えて、Rangeのみで･･･～＞°）mニニニニ＝～

ＥＸＣＥＬのオブジェクト（セルの指定）

http://homepage2.nifty.com/kasayan/vba/excel2.htm