I need to delete the rows with a positive number in a specific column. The
recordset will vary each time it is run. How do i change the range?



Sub click()
Dim i As Integer
Sheet1.Select
Sheet1.Range("a2:b6").Select
For i = 2 To 6
Cells(i, 2).Select
If Sheet1.Cells(i, 2) 0 Then Sheet1.Rows(i).Delete
Next i
End Sub
Exit Sub