Active cell deleting and shifting up

[kamranyd]

HI, can anyone help me, I am using this code for deleting active cell and shift up, can we write these code more short or any other way.

Sub Delete_Range_To_ShiftUP()
    ActiveCell.Delete
    ActiveCell.Offset(0, 1).Delete
    ActiveCell.Offset(0, 2).Delete   
End Sub

 

[Z51]

ActiveCell.Resize(1, 3).Delete (xlShiftUp)

 

[kamranyd]

Post 2 line of code delete cells and shift up. how about if I want to add cell in-between cells and copy upper cells formula.

 

[kamranyd]

these codes add entire row whatever cell I select plus copy above formula and formats. I want to add three cells wherever I want in sheet not entire row.

Sub add_row_list_Click()
    Sheets("lists").Unprotect
    ActiveCell.Offset(1).EntireRow.Insert
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow
    On Error Resume Next
    ActiveCell.Offset(1).EntireColumn.SpecialCells(xlConstants).ClearContents
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
    Sheets("lists").Protect AllowFormattingCells:=True, AllowFiltering:=True
End Sub