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.

CODE	DATE	RUNNING HOURS	REPAIR DONE	MECHANIC
FE25	29-Jan-18	5,000	CHANGE BATTERY	RED
FE26	30-Jan-18	4,560	CHANGE RIMS	GREEN
J15	31-Jan-18	3,521	CHANGE ALTERNATOR	BLUE
FE25	1-Feb-18	5,160	CHANGE BATTERY	RED
L24	2-Feb-18	4,560	CHANGE TIRE	GREEN
FE25	3-Feb-18	5,200	CHANGE STARTER MOTOR	BLUE

<tbody>
</tbody>

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.

CODE	DATE	RUNNING HOURS	REPAIR DONE	MECHANIC
FE25	29-Jan-18	5,000	CHANGE BATTERY	RED
FE25	1-Feb-18	5,160	CHANGE BATTERY	RED
FE25	3-Feb-18	5,200	CHANGE STARTER MOTOR	BLUE

<tbody>
</tbody>

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.