Sub RowKiller()
Dim r1 As Range, r2 As Range
Dim n As Long
n = 2050
m = n + 10
Set r1 = Range("K" & n)
Set r2 = Range("K" & m & ":K" & Rows.Count)
If r1.Value < "" Then
r2.EntireRow.Delete
End If
End Sub

--
Gary''s Student - gsnu200837