I need a macro that will loop until the last empty cell in column B

This what I need:

If the cells in column "B" contains the word "Total", then copy the cells in
Column "D" to column "E"

This is what I have so far but it is not working. Please help

Sub Copy_subtotal()

Dim i As Integer


i = 4

Do Until IsEmpty(Cells(i, 2))
If Cells(i, 2).Formula = "=RIGHT(RC,5))" = "Total" Then
Cells(i, 4).Copy
Cells(i, 6).Paste

End If

i = i + 1
Loop

End Sub