.  http://sql.ru/]mahoune  

 .  http://sql.ru/]mahoune  

WorkSheets("Лист1").Rows(i).Delete

 --Example 
 --This example deletes row three on Sheet1. 

Worksheets("Sheet1").Rows( 3 ).Delete
		
 --This example deletes rows in the current region on worksheet one where the 
 -- value of cell one in the row is the same as the value in cell one in the previous row. 

For Each rw In Worksheets( 1 ).Cells( 1 ,  1 ).CurrentRegion.Rows
    this = rw.Cells( 1 ,  1 ).Value
    If this = last Then rw.Delete
    last = this
Next
		
 --This example displays the number of rows in the selection on Sheet1. 
 --If more than one area is selected, the example loops through each area. 

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <=  1  Then
    MsgBox "The selection contains " & _
        Selection.Rows.Count & " rows."
Else
    i =  1 
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows."
        i = i +  1 
    Next a
End If

 .  http://sql.ru/]mahoune