excel vba if文エラー 有効範囲がインデックスにない

Question

###ワークシート出欠１のB列が”出席”の場合は1、”欠席”の場合は0とワークシート名簿に自動入力するマクロを作成したいのですが、このようにコードを書き実行するとエラーが起きます。どこを改善すれば良いでしょうか？
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("名簿")
Set sh2 = Worksheets(" 出欠1")

If sh2.Cells("B2:B71") = "出席 " Then
    sh1.Cells("B3:B72") = "1"
Else
    sh1.Cells("B3:B72") = "2"
End If

Answer 1

Sub sample1()
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Set sh1 = Worksheets("名簿")
    Set sh2 = Worksheets("出欠1")
    Dim i
    With sh2.Range("B2:B71")
        For i = 1 To .Rows.Count
            sh1.Range("B3:B72").Cells(i).Value = IIf(.Cells(i) = "出席", "1", "2")
        Next
    End With
End Sub

Sub sample2()
    Dim sh1 As Worksheet
    Set sh1 = Worksheets("名簿")
    sh1.Range("B3:B72").FormulaR1C1 = "=IF(出欠1!R[-1]C=""出席"",1,2)"
End Sub

Answer 2

こちらの間違いではないですか。
"B2:B71"と指定するならばCellsでは無く、Range("B2:B71")と記述します。
"B2:B71"でループする場合には、neconekocat様の様に記述します。

If sh2.Cells(2,71) = "出席 " Then
    sh1.Cells(3,72) = "1"
Else
    sh1.Cells(3,72) = "2"
End If

Answer 3

Set sh2 = Worksheets(" 出欠1")
空白が混じってるのが怪しい

追記
行毎に処理する必要があるので、ループを使います。

Dim i As Long

For i = 2 To 71
    If sh2.Cells(i, 2).Value = "出席" Then
        sh1.Cells(i + 1, 2).Value = "1"
    Else
        sh1.Cells(i + 1, 2).Value = "0"
    End If
Next

Comments

[oncle]

ありがとうございます。空白が入っていました！、、ですが（プロシージャの呼び出し、または引数が無効です。）とまたエラーが起きました。。。。