vba - このコードを機能させることができません。「型の不一致エラー」です。

Question

このコードに何か問題がありますか。列を調べて、値が参照値（タイマー）より小さい場合は、隣接するセルをコピーして「A8」を入力する必要があります。

ありがとう。

Sub GetData()

Dim i As Integer

For i = 4 To 31

If Cells(i, 38) < Cells(32, 5) Then
Cells(1, 8) = Cells(i, 39)
End If

Next i

End Sub