selecting cells

[mani_singh]

hi everyone!

i really need some help with this one please.

i need the macro commands for both :

A) changing the last item in a list (col B) from failed to successful

B) adding the word failed to the next empty cell at the bottom of that same list

thanks

 

[Jonmo1]

LR = Cells(Rows.Count, "B").End(xlup).Row
Cells(LR, "B").Value = "successful"
Cells(LR + 1, "B").Value = "failed"