Вопрос типа данных vba - как правильно вставить число (с запятой)?

Question

Я получаю ошибку несоответствия типов при запуске функции. Значения похожи на 4476,7873900342471 (иностранная валюта), округленные до двух знаков после запятой, поэтому я на листе, например, 4476,79. Какой тип должен иметь val?

Function findValues()

Dim Sheet As Worksheet
Dim LastRow As Long 
Dim val As Double

Set Sheet = ThisWorkbook.Worksheets("Arkusz1")

LastRow = Sheet.Cells(Rows.Count, "A").End(xlUp).row

For i = 2 To LastRow

val = Sheet.Range("O" & i).Value

    Sheet.Range("T" & i).Value = val

Next i
End Function

Answer 1

Моя последняя строка включала пустые строки, в которых были функции - что вызвало несоответствие. Я применил LastRow = Columns("O").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).row, теперь он правильно считает количество строк, и это сработало. Спасибо всем