VBA Button to delete a row partially

[4 Barrel Harold]

Hey Guys and Gals, 4BBL Harold here with a problem that Ineed help with.<o></o>
On my sheet that I’m working on, I have a delete buttonsetup, here is brief description of the sheet<o></o>
I have two columns of information, 1^ST columnsrange is E:M and 2^ND Column O:W<o></o>
The rows start at row 12 and end at row 54<o></o>
Now here is what I’m trying to accomplish, if I select “H34”at random and press my VBA delete button, I need it to delete E:M on row 34without effecting O:W on same row and if I were to select another random cellon another row like R50 and press the same button it would delete O:W on row 50 and move lowerrows up O:W without deleting anything in E:M same row<o></o>
<o> </o>
<o> </o>
Application.ScreenUpdating = False<o></o>
ActiveSheet.Unprotect<o></o>
Dim ldel As Long<o></o>
ldel = MsgBox("Are You Sure You Want To DELETE SELECTEDITEM?", vbQuestion + vbYesNo)<o></o>
If ldel <> vbYes Then Exit Sub<o></o>
ActiveCell.EntireRow.Delete Shift:=xlShiftDown ßThis is the row I need Help on<o></o>
ActiveSheet.Protect<o></o>
Application.ScreenUpdating = True<o></o>

 

[Joe4]

Welcome to the Board!

Are you wanting to actually delete those cells, so everything underneath it moves up, or do you simply want to clear the contents of those cells, but not move any other data on the sheet around?

 

[Fluff]

Hi & welcome to the board.
How about

Application.ScreenUpdating = False
ActiveSheet.Unprotect
If MsgBox("Are You Sure You Want To DELETE SELECTEDITEM?", vbQuestion + vbYesNo) = vbYes Then
   Select Case ActiveCell.Column
      Case 5 To 13
         Range("E" & ActiveCell.row).Resize(, 9).Delete xlShiftUp
      Case 15 To 23
         Range("O" & ActiveCell.row).Resize(, 9).Delete xlShiftUp
   End Select
End If
ActiveSheet.Protect
Application.ScreenUpdating = True

 

[4 Barrel Harold]

Joe4, Thanks for the reply, Fluffs code works great

 

[Fluff]

Glad we could help & thanks for the feedback

 

[4 Barrel Harold]

Fluff, Thanks a Million, the code works great and just what I needed, the internet here is like sending smoke signals. lol

 

[4 Barrel Harold]

Fluff our internet is like sending smoke signals lol

 

[4 Barrel Harold]

Can the case code also be used for adding a row?? If so how would this part of the code be rewritten

Case 15 To 23
Range("O" & ActiveCell.row).Resize(, 9).Delete xlShiftUp

 

[Fluff]

Replace

.Delete xlShiftUp

with .Insert

 

[4 Barrel Harold]

Works like a Charm Fluff, Thanks again