<02-5 행 삭제 개선1>

Dim uni As Range
Dim i As Long, lR As Long

lR = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lR
   If Cells(i, "a") = "A-1" Then
      If uni Is Nothing Then
         Set uni = Cells(i, "a").Resize(, 2)
      Else
         Set uni = Union(uni, Cells(i, "a").Resize(, 2))
      End If
   End If
Next

If Not uni Is Nothing Then uni.Delete

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]