I am trying to automate the following, seemingly simple task, but am having
trouble doing so:
I have a range, let's say 4x4. I need to increase that range, by adding
cells on the right and below, let's say to end up with 7 x 6. I DO NOT want
to insert whole columns and rows - I only want to insert as many cells as run
the length of my initial range. Calling Range.Insert seems to insert a whole
4x4 range. Is there any way to specify teh size of what is to be inserted,
or am I stuck inserting the size of whatever is selected right at the
location it is selected?

One way:

Const nADDROWS As Long = 3
Const nADDCOLS As Long = 2

With Selection
.Cells(1).Offset(.Rows.Count, 0).Resize( _
nADDROWS, .Columns.Count).Insert _
Shift:=xlShiftDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(1).Offset(0, .Columns.Count).Resize( _
.Rows.Count + nADDROWS, nADDCOLS).Insert _
Shift:=xlShiftToRight, _
CopyOrigin:=xlFormatFromLeftOrAbove
End With


In article <F42F6A64-C430-403B-B78A-(E-Mail Removed)>,
Matthew Wieder <(E-Mail Removed)> wrote:

> I am trying to automate the following, seemingly simple task, but am having
> trouble doing so:
> I have a range, let's say 4x4. I need to increase that range, by adding
> cells on the right and below, let's say to end up with 7 x 6. I DO NOT want
> to insert whole columns and rows - I only want to insert as many cells as run
> the length of my initial range. Calling Range.Insert seems to insert a whole
> 4x4 range. Is there any way to specify teh size of what is to be inserted,
> or am I stuck inserting the size of whatever is selected right at the
> location it is selected?