Delete Last cell in row

Sub Delete_Last_1()
    With Cells(1, Columns.Count).End(xlToLeft)
        If .Value = 1 Then .ClearContents
    End With
End Sub