how delete range instead of entire row for target

[Alaa mg]

hi
is there any help to make the code delete range from A: L instead of entire row when change value in column A ?
this is the code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.EnableEvents = False
        Target.EntireRow.Delete
    End If
    Application.EnableEvents = True
End Sub

 

[Fluff]

Try

Target.Resize(,12).Delete xlShiftUp

 

[Alaa mg]

sorry for correction . it should delete from column B: L

 

[Fluff]

In that case use

Target.Offset(,1).Resize(,11).Delete xlShiftUp

 

[Alaa mg]

thanks very much

 

[Fluff]

You're welcome & thanks for the feedback.