Выдаёт в ячейках #знач!

Option Explicit
 
Sub PPD()
'макрос меняет в заданных ячейках значения с текстового формата в числовой
'вторая часть макроса суммирует выгруженные значения из ККК,
'затем вставляет это значение в графу основной долг для корректного подсчёта
'после чего очищает ячейки в которых производилось вычисление
 
'перваячасть макроса
With Cells(18, 6)
.NumberFormat = "0.00"
.Value = .Value * 0.01
'умножения значения на 0.01 необходимо для корректного отображения суммы с копейками
End With
With Cells(19, 6)
.NumberFormat = "0.00"
.Value = .Value * 0.01
End With
With Cells(18, 4)
.NumberFormat = "0.00"
.Value = .Value * 0.01
End With
With Cells(19, 4)
.NumberFormat = "0.00"
.Value = .Value * 0.01
End With
With Cells(20, 4)
.NumberFormat = "0.00"
.Value = .Value * 0.01
End With
With Cells(21, 4)
.NumberFormat = "0.00"
.Value = .Value * 0.01
End With
 
'вторая часть макроса
'суммирование
Range("F18:F20").Select
    Range("F20").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    Range("F20").Select
'суммирование
With Cells(20, 6)
.NumberFormat = "0.00"
.Value = .Value * 1
End With
 
'копирование значения
'Application.ScreenUpdating = False - данная функция убирает отображение производимых действий
'для ускорения работы макроса
Range("F20").Copy
With Sheets("Data").Range("d18")
    .PasteSpecial Paste:=xlPasteValues
   ' .PasteSpecial Paste:=xlPasteFormats
   ' .PasteSpecial Paste:=x1PasteColumnWidths
End With
With Application
     .ScreenUpdating = False: .CutCopyMode = False
    End With
    
'очистка ячеек в которых производилось вычисление
Range("F18:F20").Select
    Selection.ClearContents
    Call qaz
End Sub
 
Function raspred_ppd()
'данная функция распределяет ППД в соответствующем столбце
'функция замены итого ППД в развёрнутой таблице не реализована!
'состоит из 4 частей
 
'часть первая - в ячейке G61 создаётся формула подсчитывающая количество заполненных ячеек в столбце ППД
Range("G61").Select
        ActiveCell.FormulaR1C1 = "=COUNT(R[-34]C[-1]:R[-1]C[-1])-1"
 
'часть вторая - в ячейке G62 создаётся формула делящая значение ППД из ККК на значение ячейке G61
Range("G62").Select
    ActiveCell.FormulaR1C1 = "=R[-41]C[-3]/R[-1]C"
    
'часть третья - в диапазоне ячеек с F27 по F60 в случае нахождения значения больше нуля
'вставлять значение из ячейки G62
    If Range("F27").Value > 0 = True Then
Range("F27").Value = Range("G62").Value
End If
If Range("F28").Value > 0 = True Then
Range("F28").Value = Range("G62").Value
End If
If Range("F29").Value > 0 = True Then
Range("F29").Value = Range("G62").Value
End If
If Range("F30").Value > 0 = True Then
Range("F30").Value = Range("G62").Value
End If
If Range("F31").Value > 0 = True Then
Range("F31").Value = Range("G62").Value
End If
If Range("F31").Value > 0 = True Then
Range("F31").Value = Range("G62").Value
End If
If Range("F32").Value > 0 = True Then
Range("F32").Value = Range("G62").Value
End If
If Range("F33").Value > 0 = True Then
Range("F33").Value = Range("G62").Value
End If
If Range("F34").Value > 0 = True Then
Range("F34").Value = Range("G62").Value
End If
If Range("F35").Value > 0 = True Then
Range("F35").Value = Range("G62").Value
End If
If Range("F36").Value > 0 = True Then
Range("F36").Value = Range("G62").Value
End If
If Range("F37").Value > 0 = True Then
Range("F37").Value = Range("G62").Value
End If
If Range("F38").Value > 0 = True Then
Range("F38").Value = Range("G62").Value
End If
If Range("F39").Value > 0 = True Then
Range("F39").Value = Range("G62").Value
End If
If Range("F40").Value > 0 = True Then
Range("F40").Value = Range("G62").Value
End If
If Range("F41").Value > 0 = True Then
Range("F41").Value = Range("G62").Value
End If
If Range("F42").Value > 0 = True Then
Range("F42").Value = Range("G62").Value
End If
If Range("F43").Value > 0 = True Then
Range("F43").Value = Range("G62").Value
End If
If Range("F44").Value > 0 = True Then
Range("F44").Value = Range("G62").Value
End If
If Range("F45").Value > 0 = True Then
Range("F45").Value = Range("G62").Value
End If
If Range("F46").Value > 0 = True Then
Range("F46").Value = Range("G62").Value
End If
If Range("F47").Value > 0 = True Then
Range("F47").Value = Range("G62").Value
End If
If Range("F48").Value > 0 = True Then
Range("F48").Value = Range("G62").Value
End If
If Range("F49").Value > 0 = True Then
Range("F49").Value = Range("G62").Value
End If
If Range("F50").Value > 0 = True Then
Range("F50").Value = Range("G62").Value
End If
If Range("F51").Value > 0 = True Then
Range("F51").Value = Range("G62").Value
End If
If Range("F52").Value > 0 = True Then
Range("F52").Value = Range("G62").Value
End If
If Range("F53").Value > 0 = True Then
Range("F53").Value = Range("G62").Value
End If
If Range("F54").Value > 0 = True Then
Range("F54").Value = Range("G62").Value
End If
If Range("F55").Value > 0 = True Then
Range("F55").Value = Range("G62").Value
End If
If Range("F56").Value > 0 = True Then
Range("F56").Value = Range("G62").Value
End If
If Range("F57").Value > 0 = True Then
Range("F57").Value = Range("G62").Value
End If
If Range("F58").Value > 0 = True Then
Range("F58").Value = Range("G62").Value
End If
If Range("F59").Value > 0 = True Then
Range("F59").Value = Range("G62").Value
End If
If Range("F60").Value > 0 = True Then
Range("F60").Value = Range("G62").Value
End If
 
'часть четвёртая заключительная - очистить ячейки  G61 и G62 и сделать активной ячейку D21
 Range("G61:G62").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-24
    Range("D21").Select
End Function

For i = 27 To 60
Cells(i, 11) ' это ячейка в строке i и в столбце 11
...