エクセルVBA　マクロの作成をお願い致します。

Sub main()

Dim WSCount As Integer
Dim Total As Long
Dim lp As Integer

WSCount = Worksheets.Count
If WSCount > 2 Then
For lp = 3 To WSCount
If IsNumeric(Worksheets(lp).Range("A1")) = True Then
Total = Total + Worksheets(lp).Range("A1")
End If
Next lp
End If

Worksheets(2).Range("A1") = Total

End Sub

注）セルの値が数字以外の場合は無視します。（IsNumeric関数でチェック）