hi.
my post covers how to insert/delete rows AND how to insert/delete cells
read down to the bottom of the post for cells

Regards
FSt1

"CAPTGNVR" wrote:

D/FSt1

Thanks for your response. Tried your steps and sorry as it does not meet my
needs. It inserts a row which should not bcos I have VB code which when
copies a different area and pastes will give wrong results.

For example I highlight a range from A30.K40. Keep cursor on the border and
drag it a row down to shift the whole range by a row or two as required.

This is needed in VB code. As I mentioned in my post I have managed to get
the range A30.K40 selected. What is the code to just pull it down by one or
two rows without inserting a new row.

Eagerly waiting.

with rgds/captgnvr



"FSt1" wrote:

hi
to insert 1 row....
ActiveCell.EntireRow.Insert
to insert 2 rows...
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Insert
to delete 1 row...
ActiveCell.EntireRow.Delete Shift:=xlUp
to delete 2 rows...
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.delete Shift:=xlup
to inset 1 cell...
ActiveCell.Insert Shift:=xlDown
to insert 2 cells.....
Range(ActiveCell, ActiveCell.Offset(1, 0)).Insert Shift:=xlDown
to delete 1 cell...
ActiveCell.Delete Shift:=xlUp
to delete 2 cells...
Range(ActiveCell, ActiveCell.Offset(1, 0)).Delete Shift:=xlUp

regards
FSt1
"CAPTGNVR" wrote:

DEAR ALL

I have managed to get a range marked from active cell to the last row of the
data to colum K.

Need to shift this whole range by one or two rows as required to insert
fresh information. At least pls suggest how to shift the range by one row,
which will also solve my data entry as I have to select the cell and use a
command button to shift the range by one cell each time.

I can even high light how many rows i want to shift and get rows.count and
do, i guess but will first learn to shift by one row first.

NOTE: cannot insert a new row bcos of hard coding in VB for copying the
values and pasting.

Pls help.

BRGDS/CAPTGNVR