如何使用目标范围删除 VBA 中的行

Question

I have a sheet and I need to delete rows starting from A3:M3. All rows below him should also be deleted. I'm using the code below and the entire rows now are empty.

Any tips and tricks how to do it?

For i = 3 To 10
    rws = "A" & i & ":" & "M" & i
    Range(rws).EntireRow.Delete
Next

Answer 1

Please, try the next code:

Sub deleteRowsOver3()
   Dim sh As Worksheet, lastR As Long
   
   Set sh = ActiveSheet
   lastR = sh.Range("A" & sh.rows.Count).End(xlUp).row
   sh.Range("A3:A" & lastR).EntireRow.Delete
End Sub