如何删除特定行上方的所有行？

Question

我正在研究一些从外部源导入数据的代码。但是，问题在于标题行有时在其上方包含空白行。由于这些行都是不必要的，因此我想删除标题行上方的所有行。

当前，我有以下代码在标题行中查找一个单词（单词“ organization”）并删除上方的行。理想情况下，我希望使代码更健壮，因为标头行上方的行数会不时变化。如果我能以某种方式获得删除标头上方所有行的代码，那我会感到非常满意。

Option Explicit

Dim wks As Worksheet
Dim strSearch As String
Dim lookUp As Range

Private Sub cmdRefresh_Click()

Set wks = Sheets("Data")
wks.Activate

'Delete rows (if any) above header row
strSearch = "Organization"
Set lookUp = wks.Cells.Find(what:=strSearch, lookat:=xlWhole, searchorder:=xlByRows, MatchCase:=False)
lookUp.Select

If lookUp.Row <> 1 Then
    wks.Range(lookUp, lookUp.Offset(-1)).EntireRow.Delete
End If

End Sub

任何帮助将不胜感激。