VBA Columnsを使い列番号で複数列選択

Question

G：I列をコンボボックスに入力された列数コピーし、
その後A1セルから先ほどコピーした列すべてを印刷範囲に指定したいです。
いろいろ直してもエラーが治らないので教えてください。

Private Sub CommandButton1_click()



Range(Columns(10), Columns(Columns.Count)).Delete

Dim n, g, p As String
Dim n2, g2, p2 As String
Dim h, h2 As String
n = ComboBox1.Text
g = ComboBox2.Text
p = ComboBox3.Text
h = n & " / " & g & " / " & p
Range("G5").Value = h

n2 = ComboBox4.Text
g2 = ComboBox5.Text
p2 = ComboBox6.Text
h2 = n2 & " / " & g2 & " / " & p2
If n > n2 Then
    MsgBox "正しい日付を入力してください"
    Unload Me
    Exit Sub
    End If
If n = n2 And g > g2 Then
    MsgBox "正しい日付を入力してください"
    Unload Me
    Exit Sub
    End If
If n = n2 And g = g2 And p > p2 Then
    MsgBox "正しい日付を入力してください"
    Unload Me
    Exit Sub
    End If
Unload Me

Dim dd As Long
Dim lastlow As Long
lastlow = Cells(Rows.Count, 1).End(xlUp).Row
dd = DateDiff("d", h, h2)

Dim c As Range, d As Range
Set c = ActiveSheet.Columns("G:I")
Set d = c.Resize(, dd + 3)
c.AutoFill d

thisworksheet.PageSetup.PrintArea = Range("A1:A" & lastlow).Resize(, d).Address

補足
回答ありがとうございます。
いろいろと説明不足だったので追記します。
Excelのシートは画像のような状態になっています。
みなさまの回答いただいたプログラムではエラー1004の同じサイズの結合セルが・・・というのが出たり出なかったりします。
コードも省略していたものを全部貼りますので再度回答していただけると助かります。

Answer 1

こんな感じでどうでしょうか。

Sub 列をコピー()
    Dim r As Long
    r = ComboBox1.Text
    
    Dim c As Range, d As Range
    Set c = ActiveSheet.Columns("G:I")
    Set d = c.Resize(, r + 3)
    c.AutoFill d
    
    c.Worksheet.PageSetup.PrintArea = "A1:" & d.SpecialCells(xlCellTypeLastCell).Address
End Sub

Comments

[jinoji]

ddが日数で、1日あたり3列で構成されているなら、Resize(, dd * 3 + 3) とする必要があると思います。

[321Kurumins]

ありがとうございます。

Answer 2

最後のLastlowが印刷範囲の行数指定なのかな、と勝手に予想していますが、こういうことなのかなと（コード内で唐突に出てくるので、他で値を指定しているものとしています）

Sub　列をコピー()
Dim r As Long
r = ComboBox1.Text
Columns("G:I").Select
Selection.AutoFill Destination:=Columns("G").Resize(, r), Type:=xlFillDefault

ThisWorkSheet.PageSetup.PrintArea = Range("A1:A" & Lastlow ).Resize(, r + 7).Address

Answer 3

何がやりたいのか質問文からは正確に読み取れませんがこれでどうでしょう？Columns使ってませんが

Sub　列をコピー()
Dim r As Long
r = ComboBox1.Text
Range(Cells(1, 7), Cells(1, 9)).Select
Selection.AutoFill Destination:=Range(Cells(1, 7), Cells(r, 9)), Type:=xlFillDefault
ActiveSheet.PageSetup.PrintArea = "A1:I" & r
End Sub