Delete row values and columns after last row but exclude column A

[KDS14589]

I wish to clear or delete rows in every column EXCEPT column 'A' based on the 'last row' in column 'B' starting in row '4'. For example, if I have a value in B10, then all rows below and to the right would be cleared or deleted but in values in column 'A' would not be harmed. i also posted this at Delete rows but not specific column

I've tried several solutions, but they all have 'ENTIREROW.DELETE'

 

[Michael M]

Is this what you need ???

Sub MM1()
Dim r As Long
For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(r, 2) = "" Then Range(Cells(r, 2), Cells(r, 6)).Clear
Next r
End Sub

 

[Peter_SSs]

What about this?
(Test with a copy of your data)

Sub Clear_Data()
  Range(Cells(Rows.Count, "B").End(xlUp).Offset(1), Cells.SpecialCells(xlCellTypeLastCell)).Clear
End Sub

 

[KDS14589]

Is this what you need ???

Sub MM1()
Dim r As Long
For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(r, 2) = "" Then Range(Cells(r, 2), Cells(r, 6)).Clear
Next r
End Sub

sorry went with a another. yours made an error, don't know why. THANKS for the effort.

 

[KDS14589]

What about this?
(Test with a copy of your data)

Sub Clear_Data()
  Range(Cells(Rows.Count, "B").End(xlUp).Offset(1), Cells.SpecialCells(xlCellTypeLastCell)).Clear
End Sub

IT WORKS . Thanks for code and effort

 

[Peter_SSs]

IT WORKS . Thanks for code and effort

You're welcome. Thanks for the follow-up.

It may not occur with your worksheets but it is possible that under a certain circumstance my code could actually delete some data in the row where the last value in column B is.
To avoid that remote possibility, this would be safer code to rely on.

Sub Clear_Data()
  Range(Cells(Rows.Count, "B").End(xlUp).Offset(1), Cells.SpecialCells(xlCellTypeLastCell).Offset(1)).Clear
End Sub

 

[KDS14589]

You're welcome. Thanks for the follow-up.

It may not occur with your worksheets but it is possible that under a certain circumstance my code could actually delete some data in the row where the last value in column B is.
To avoid that remote possibility, this would be safer code to rely on.

Sub Clear_Data()
  Range(Cells(Rows.Count, "B").End(xlUp).Offset(1), Cells.SpecialCells(xlCellTypeLastCell).Offset(1)).Clear
End Sub

Added it. Everything works fine. THANKS for the update and concern. Again Thank you!

 

[Peter_SSs]

Cheers.