copy and paste certain rows MACRO

[daveyc3000]

hey

im looking to make a macro so that ONLY copies and pastes rows in column B that contain the word "FRN." ....and "FRN" always appears on the RIGHT side of the cell

thanks

 

[Harpreet Singh]

If i got you. You can try this:-

Sub Copy_Data()

'you must use Column Header for this code.
'Data will store in Next column.

Application.ScreenUpdating = False

For Each cell In Range("B:B")
     If cell.Value Like "*" & "FRN" Then
     cell.Offset(0, 1).End(xlUp).Offset(1, 0).Value = cell.Value
     End If
Next

Application.ScreenUpdating = True

End Sub