G
Guest
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
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