Section Autofill count based on a value of a cell column

[khhoa]

Hello, I need help with creating an autofill section based on the the value of a cell G9.

I have a layout from A12:I13 that I would like to copy down the row based on the value of G9.

For Example G9 = 10

A12 = 1
A13 = 2

Based on G9 = 10 I need to create the additional row to 10.

Range selected "A12:I13" will copy an addional (G9=10 - 2 since 1 and 2 are already there)

this will lead to A12:I13 + 8 = A12:I21.


The code below does what I need it to do but I have to manually edit the I13 to I21 = 8 additional copy lines

   
        Range("A12:I13").Select
        Selection.AutoFill Destination:=Range("A12:I21"), Type:=xlFillDefault

[AlphaFrog]

Try this...

Range("A12:I13").AutoFill Destination:=Range("A12:I12").Resize(Range("G9").Value), Type:=xlFillDefault

[khhoa]

Try this...

Range("A12:I13").AutoFill Destination:=Range("A12:I12").Resize(Range("G9").Value), Type:=xlFillDefault

I am getting a Run-Time error '1004'

This operation requires the merged cells to be identically sized.

Is it because I have some cells in A12:I13 that are merged together, That is why it is selected and copy down.


I just realized that this causes error because cells need to be even numbers since selected range is in two.