Sub 西浦1以外一括削除()

    Dim myrange As Range

    Dim i As Long

    Dim end_row As Long

With ThisWorkbook.Sheets("承認フォーム")

    end_row = .Cells(Rows.Count, "A").End(xlUp).Row

i = 4

        For i = end_row To 2 Step -1

           If .Cells(i, "R") = "村上(良)" Or .Cells(i, "R") = "平谷" Or .Cells(i, "R") = "西尾" Then

              '最初の空白行のときのみ 変数初期化'

               If myrange Is Nothing Then

                   Set myrange = .Rows(i)

               Else

                  'unionメソッドでmyrangeオブジェクトへ格納していく'

                   Set myrange = Union(myrange, .Rows(i))

               End If

           End If

        Next i

    '一括削除'

    myrange.Delete

End With

End Sub