adding cells whatever cell I select

[kamranyd]

is there any other way to write these codes, shorter than this

Sub InsertAndCopy()
With Selection
  
       ActiveCell.Offset(1).Resize(1, 4).Insert shift:=xlDown
        ActiveCell.Offset(1, 1).FillDown
        ActiveCell.Offset(1, 2).FillDown
        ActiveCell.Offset(1, 3).FillDown
        ActiveCell.Offset(1, 0).Select
      
End With
End Sub

 

[HaHoBe]

Hi kamranyd,

maybe

Sub InsertAndCopy_mod()
  With ActiveCell.Offset(1)
    .Resize(1, 4).Insert shift:=xlDown
    .Offset(-1, 1).Resize(1, 3).FillDown
    .Offset(-1).Select
  End With
End Sub

Ciao,
Holger