Data entry after last full cell

Dear All,
I want to enter text for example 'Done' last cell after last full cell. How can i manage this process with below macro?

Dim data As Long
    data = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B" & data, "B" & data).Copy Range("B" & data + 2)

Thank you in advance.

Maybe:

Sub elevisse()
Dim data As Long
    data = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B" & data, "B" & data).Copy Range("B" & data + 2)
    Range("B" & Rows.Count).End(3)(2).Value = "Done"
End Sub