VBA エラー1004 同じサイズの結合セル 対処法

Question

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 + 7)
c.AutoFill d

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

現在上記のようなコード、シートになっております。
c.AutoFill d　の部分でエラーが出たり出なかったりしています。
エラー番号1004で同じサイズの結合セルがーと出ます。
改善方法を教えてください。

Answer 1

オートフィル対象列の８行目あたりに３列に跨る結合セルがいるので、dの列数 = dd+7 が「3より大きい３の倍数」である必要があります。

Comments

[321Kurumins]

エラーを出さないようにＧ：Ｉ列をオートフィルできないですかね？？

[Usirow]

すみません。以前の質問の方でjinoji様から回答を頂いているようですが、それとは別の回答がほしいということでしょうか？　見た限り、わたしもjinoji様と同じ回答になりそうなのですが。

[321Kurumins]

そちらの回答を見る前に質問してしまいました。
その回答で大丈夫でしたのでありがとうございました！