フラグを立てたデータを上から詰めて転記する方法

Question

前提・実現したいこと

上半分がフラグを1とたてたコードで下半分がフラグを立てたものをを転記するコードです。
このままでは、下記の表のように不合格者名が空白をそのまま残して転記されてしまうため、上から詰めて転記する方法が知りたいです。よろしくお願いします。　

ソースコード
Dim a As Range　　　　　　　　　　　　　　　　
Set a = Range("D2:D7")
Dim b As Range
Set b = Range("E2:E7")
Dim i As Integer

For i = 1 To a.Cells.Count
If a.Cells(i).Value <= 70 Then
b.Cells(i).Value = "1"
Else
b.Cells(i).Value = "0"
End If
Next i

Dim name As Range
Set name = Range("A2:A7")
Dim namei As Range
Set namei = Range("F2:f7")
Dim k As Integer

For k = 1 To b.Cells.Count
If b.Cells(k) = "1" Then
namei.Cells(k) = name.Cells(k)
End If
Next k

Answer 1

コードにできるだけ手を加えないとすれば別変数用意するのが一番楽かな？

Dim row as Integer
row  = 1

namei.ClearContents
For k = 1 To b.Cells.Count
    If b.Cells(k) = "1" Then
        namei.Cells(row) = name.Cells(k)
        row = row + 1
    End If
Next k

Comments

[tiyo]

ご回答ありがとうございます。
実際にコードを実行してみたところ、鈴木、井上、斎藤と上から詰めてコードが入力されたのですが、下に一セル開けて井上、斎藤と入力されてしまいました。やはり一からコードに手を加えないと難しいでしょうか。
何度も申し訳ありませんがよろしくお願いいたします。

[neconekocat]

コードを実行する前にF列は全部消した状態で行っていますか？
一応、転記先を一旦クリアする処理を追加しました。

[tiyo]

上手くいきました。助かりました。
ありがとうございます。