Is there any way to delete entire row without column a

[EzzatHesham]

Hello everyone,
Is there any way to delete an entire row by a command button in userform but without deleting column a, i want to delete row from columns (b to y), and thats a code i used.

Private sub cmddeleteee_click()
Sheet7.range("d4").value=edit2form.textbox26.value
Dim ans as vbmsgboxresult
Dim ldelete as integer
Ans=msgbox(".......",vbcritical+vbquestion+vbyesno,"......")
Ldelete=sheet7.range("c4").value
If ans = vbyes then
Sheet1.rows(ldelete).delete
Msgbox ".....", vbinformation,"...."
Else
Cancel = true
End if
End sub

Thanks for helping

 

[kevin9999]

EDITED
Try replacing

Sheet1.rows(ldelete).delete

with

Sheet1.Cells(ldelete,2).Resize(1,24).ClearContents

 

[EzzatHesham]

EDITED
Try replacing

Sheet1.rows(ldelete).delete

with

Sheet1.Cells(ldelete,2).Resize(1,24).ClearContents

Thanks a lot, it works.
I appreciate your help

 

[kevin9999]

Thanks a lot, it works.
I appreciate your help

You're welcome, and thanks for the feedback.