B列にはどの行にも必ずデータが入っているとして、1行目が見出し、2行目以降がデータ行という形でサンプルを作っています。 実際の表に合わせて変更してください。 Dim i As Long, flg As Long Dim sht1 As Worksheet, sht2 As Worksheet Set sht1 = Sheets("案件一覧表") Set sht2 = Sheets("削除済案件") flg = 1 With sht1 For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 2 Step -1 If .Cells(i, 1) = "削除" Then .Rows(i).Cut sht2.Cells(sht2.Rows.Count, 2).End(xlUp).Offset(flg, 0).EntireRow.Insert .Rows(i).Delete flg = flg - 1 End If Next End With flgについては無くても良いのですが、下から消していく都合上順番がひっくりかえりますので、offsetを-1ずつずらすことで、削除対象を上から順番に挿入しています。 2回目ボタンを押したときは、その下に押したときの削除対象を上から順番に挿入といったコードにしてます。