Solved: additional criteria

[austenr]

Where in the below code can you check for text strings in a column and if found, copy that row too?

Sub Test2()
Application.ScreenUpdating = False
Dim x As Range
Set x = Sheets("Sheet1").Range("A7:k2000")
With Sheets("Sheet1")
.AutoFilterMode = False
x.AutoFilter Field:=1, Criteria1:=">1"
x.SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Sheet2").Range("A2")
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Thanks

[austenr]

Example please.