I'm not sure if this helps but let we try;Dim FirstRow As IntegerDim LastRow As Integer 'I assume that you find it beforeActiveSheet.Rows(FirstRow & ":" & LastRow).Delete