Аргумент не необязательный ошибка с циклом

Question

Я пишу циклическое кодирование для запуска простой функции, как показано ниже:

Option Explicit
Dim num As Variant
Dim sh1 As Range, sh2 As Range, sh3 As Range, sh4 As Range, multirange1 As Range, multirange2 As Range
Dim i As Integer, j As Integer, k As Integer, sht As Worksheet, LastRow As Long
Set sht = ActiveSheet
LastRow = sht.cells(sht.Rows.Count, "A").End(xlUp).Row
    For i = 6 To LastRow
        For j = 2 To 11
            For k = 15 To 24
    sht.Range.cells(i, k).Value = sht.Range.cells(i, j).Value / sht.Range.cells(6, j).Value
    Selection.NumberFormat = "0.00%"
        If Range("N" & i).Font.Bold = True Then
        Range("O" & i & ":X" & i).Font.Bold = True
        Else
        Range("O" & i & ":X" & i).Font.Bold = False
        End If
    Next i

Тем не менее, VBA дает мне argument not optional ошибка в этой строке sht.Range.cells(i, k).Value = sht.Range.cells(i, j).Value / sht.Range.cells(6, j).Value, Я действительно ценю, если кто-нибудь даст мне несколько советов о том, как заставить этот кусок кода работать быстрее, а также, короче с той же эффективностью. Большое спасибо за вашу помощь, так как я очень новичок в VBA.