is there any other way to write these codes, shorter than this
VBA Code:
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