How to script go through the whole Z column

[lipps199]

I have this script that does what I need it to but only for one instance.

How do I make it go through the whole entire Z column?

Sub InsertRow()
Cells.Find(What:="colorSeriesMaster", After:=Range("Z1")).Activate
ActiveCell.EntireRow.Insert
End Sub

Thanks