Need to delete last value in column but not delete entire row

[mike.wilson8]

This little snippet works great if I need to delete the last row, but
how can I tweak it where I need to delete the last value in a column
only and not delete the entire row?

Sub test()
Rows(Range("A2:A5").End(xlDown).Row).Delete

End Sub


Example:
Col A Col B
1 Header Header
2 value a value a
3 value b value b
4 value c value c
5 value d value d

Based on this example I would want to remove "value d" from Col A only,
but keep "value d" in Col B and so on and so on if I had other values
in row 5 in other Columns after B.

 

[bobbo]

This little snippet works great if I need to delete the last row, but
how can I tweak it where I need to delete the last value in a column
only and not delete the entire row?

Sub test()
Rows(Range("A2:A5").End(xlDown).Row).Delete

End Sub


Example:
Col A Col B
1 Header Header
2 value a value a
3 value b value b
4 value c value c
5 value d value d

Based on this example I would want to remove "value d" from Col A only,
but keep "value d" in Col B and so on and so on if I had other values
in row 5 in other Columns after B.

Range("a2:a5").End(xlDown).Delete

 

[mike.wilson8]

When using Range("a2:a5").End(xlDown).Delete, it does delete the value
from A5, but then it shifts the value B5 over to cell A5.

 

[bobbo]

When using Range("a2:a5").End(xlDown).Delete, it does delete the value
from A5, but then it shifts the value B5 over to cell A5.

Range("a2:a5").end(xldown).clear

 

[Guest]

Range("A2").End(xlDown).Delete Shift:=xlUp

having the "A2:A5" does nothing for you, the "xlDown" is executed from the
first cell in the range that you give it.