Auto copy rows w/ specific value from sheet to another sheet

[Ed_Filipino]

hi good day may you can help me to make a code regarding the table I need. I have a table w/ 5 columns (please see below) that I am running for now.
[TABLE="width: 884"]
<tbody>[TR]
[TD]CODE
[/TD]
[TD]DATE
[/TD]
[TD]RUNNING HOURS
[/TD]
[TD]REPAIR DONE
[/TD]
[TD]MECHANIC
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]29-Jan-18
[/TD]
[TD]5,000
[/TD]
[TD]CHANGE BATTERY
[/TD]
[TD]RED
[/TD]
[/TR]
[TR]
[TD]FE26
[/TD]
[TD]30-Jan-18
[/TD]
[TD]4,560
[/TD]
[TD]CHANGE RIMS
[/TD]
[TD]GREEN
[/TD]
[/TR]
[TR]
[TD]J15
[/TD]
[TD]31-Jan-18
[/TD]
[TD]3,521
[/TD]
[TD]CHANGE ALTERNATOR
[/TD]
[TD]BLUE
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]1-Feb-18
[/TD]
[TD]5,160
[/TD]
[TD]CHANGE BATTERY
[/TD]
[TD]RED
[/TD]
[/TR]
[TR]
[TD]L24
[/TD]
[TD]2-Feb-18
[/TD]
[TD]4,560
[/TD]
[TD]CHANGE TIRE
[/TD]
[TD]GREEN
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]3-Feb-18
[/TD]
[TD]5,200
[/TD]
[TD]CHANGE STARTER MOTOR
[/TD]
[TD]BLUE
[/TD]
[/TR]
</tbody>[/TABLE]

what I need was to autocopy the full rows of a specific value on the other sheet whenever I updated the first table which look like this if I make the FE25 table on separate sheet. Please refer below so if there comes a time a fourth row containing FE25 it will automatically update as well the other sheet.
[TABLE="width: 884"]
<tbody>[TR]
[TD]CODE
[/TD]
[TD]DATE
[/TD]
[TD]RUNNING HOURS
[/TD]
[TD]REPAIR DONE
[/TD]
[TD]MECHANIC
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]29-Jan-18
[/TD]
[TD]5,000
[/TD]
[TD]CHANGE BATTERY
[/TD]
[TD]RED
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]1-Feb-18
[/TD]
[TD]5,160
[/TD]
[TD]CHANGE BATTERY
[/TD]
[TD]RED
[/TD]
[/TR]
[TR]
[TD]FE25
[/TD]
[TD]3-Feb-18
[/TD]
[TD]5,200
[/TD]
[TD]CHANGE STARTER MOTOR
[/TD]
[TD]BLUE
[/TD]
[/TR]
</tbody>[/TABLE]


May you help me regarding this as it will be a big help for me. Have a good day and you may help a lot more people like who had trouble on this kind of matter.

 

[SteveO59L]

something along the lines of

Dim c As Range, rng
Dim lr As Long
Sheets("Master").Activate
lr = Range("a" & Rows.Count).End(xlUp).Row
Set rng = Range("a2:a" & lr)
For Each c In rng
If c.Value = "FE25" Then
c.EntireRow.Copy
Sheets("Fe25").Activate
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Range("a" & lr).Select

ActiveSheet.Paste
End If
Sheets("Master").Activate
Next c

 

[Ed_Filipino]

thanks a lot. I will try now.its a really big help for me when it works. Much appreciated. Keep safe ad bless always.