限制宏看的范围

Question

我有代码删除行，如果他们没有特定的字符串，但我需要限制它正在查看的范围。

Sub Delete_Rows()
Dim WR As Range
Dim Frow As Integer
Dim Lrow As Integer
Dim Lrow As Integer

'Find first and last used row in column A
Range("A7:A1000").Select
Frow = ActiveSheet.UsedRange.Cells(1).Row
Lrow = ActiveSheet.Range("A7").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

'Loop through used cells backwards and delete if needed
For Lrow = Lrow To Frow Step -1
    Set WR = Cells(Lrow, 1)
    If WR.Value <> "name1" _
        And WR.Value <> "name2" _
        And WR.Value <> "name3" _
        And WR.Value <> "name4" _
        Then WR.EntireRow.Delete

Next Lrow

End Sub

我得到一个编译器错误，它希望查看A1的功能，并删除我上面A7以上计算的其余数据