For a project I'm doing at work I need to be able to clear certain cells in the last line of a table. I want to clear the cells in columns B,C,J,K,L,M,N,O,P while leaving the formulas in the other in place.
Currently I have this which only clears the whole row:
Sub Clear()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lr).ClearContents
End Sub
Thanks for any advice
Currently I have this which only clears the whole row:
Sub Clear()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lr).ClearContents
End Sub
Thanks for any advice