vba - VBA IsNumeric 関数の何が問題になっていますか?

Question

このコード セグメントの何が問題なのかを見つけることができません。より適切に動作すると思われるコードに変更しようとするたびに、エラーとして表示されます。ご協力いただきありがとうございます。

これはコードであり、具体的には isnumeric 関数の使用に関係しており、Mac で Excel 2016 を使用しています。

Dim ws1 As Worksheet
Dim ws2 As Worksheet



Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

Set i = 1
Set n = 1

Do While ws1.Cell(i, "F") <> "End"
Num1 = ws1.Cell(i, "F")
    If IsNumeric(Num1.value) <> False And Num1 <> ""
        Set ws2.Cell(n, "B") = ws1.Cell(i, "F")
        n = n + 1
        End If
    Next i