Macro para copiar un rango de datos en diferentes hojas

Hola solicito su apoyo y amable cooperación para realizar un macro el cual su función sea la siguiente:
Tengo un libro de mas de 20 hojas con mismos formato las cuales ingreso datos diariamente, asi que tengo que estar buscando hoja por hoja hasta encontrar la especifica e ingresar los datos, la función en este caso del macro seria esa que teniendo una hoja principal o maestra y dependiendo a un valor en alguna de las celdas copie y pegue esa información a la hoja con el mismo nombre, un ejemplo seria que si en la celda n25 aparece el valor "Foráneo" esta se pegue en la hoja llamada igual Foráneo he intentado hacerlo pero solo he realizado que copie a la siguiente hoja en la celda activa, espero y puedan ayudarme, dejo el código que hasta ahora llevo.

Range ("A4:N24").Select
Do While Not isEmpty (ActiveCell)
Activecell.offset(1,0).Select
Loop
Range("A4:N24").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A4:N24).PasteSpecial
Activesheet.Paste
End sub