To automatically delete rows in a searched range I made code below,

Dim firstCAP As Range
Dim lastCAP As Range

firstCAP = ActiveCell.Rows
'goto first cell that is empty
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
ActiveCell.Offset(-1, 0).Activate
lastCAP = ActiveCell.Rows

Selection.Delete Shift:=xlUp

I get Run-time error 91

Object variable or with block variable not set

What did I do wrong?