---

Sub FactorialsOnly()
    Dim fact5 As Double, fact8 As Double, j As Integer
    
    fact5 = 1
    For j = 1 To 5
        fact5 = fact5 * j
    Next j
    
    fact8 = 1
    For j = 1 To 8
        fact8 = fact8 * j
    Next j
    
    Range("A1:C10").ClearContents
    
    Range("A1").Value = "Вычисление"
    Range("B1").Value = "Результат"
    Range("C1").Value = "Примечание"
    
    Range("A2").Value = "5!"
    Range("B2").Value = fact5
    Range("C2").Value = "= 1×2×3×4×5"
    
    Range("A3").Value = "8!"
    Range("B3").Value = fact8
    Range("C3").Value = "= 1×2×3×4×5×6×7×8"
End Sub