<code class="vb plain">' remove top rows down to row containing "Msn #"
Dim rng As Range
Dim X As Long
Const strstart As String = "Msn #"
X = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Cells(1, 1).Resize(X).Find(what:=strstart, LookIn:=xlValues, lookat:=xlWhole)...