Установка жирного шрифта макросом в динамической строке итоговых данных.

[Vega-NGC]

Доброго времени!
Помогите пожалуйста макросом установить в определённой строке жирный шрифт.
Например есть данные которые с помощью макроса формируются в определённый лист, в итоге последняя строка таблицы отображает суммарную сумму данных. Нужно чтоб эти итоговые данные выделялись жирным шрифтом.
Последняя строка устанавливается данной командой: Form.Cells(FormLine, 1) = "ИТОГО". В остальных ячейках данной строки имеются суммарные цифры.

Спасибо!

[Aleksandr H.]

Ето ведь VBA?

Sub makeMeBold()
    Dim S As Long
    Dim F As Long
    Dim i As Long
    S = 1: F = 0
    S = CInt(InputBox("Введите номер последний строки с данными", "Параметр №2", S))
    F = CInt(InputBox("Введите номер последний строки с данными", "Параметр №2", S + 1))
    If F < S Then
        i = F: F = S: S = i
    End If
    For i = S To F
        With ActiveSheet
            .Cells(i, Cells(i, .Columns.Count).End(xlToLeft).Column).Font.Bold = True
        End With
    Next
    MsgBox "Выделение в строках №№ " & S & "-" & F & " сделано!", vbOKOnly + vbInformation
End Sub

пардон...
надо так

Sub makeMeBold2()
    Dim S As Long
    S = 1
    S = CInt(InputBox("Введите номер строки с итогами", "Параметр", S))
    With ActiveSheet
        .Rows(S).EntireRow.Font.Bold = True
    End With
    
End Sub

[Vega-NGC]

Sub makeMeBold2()
    Dim S As Long
    S = 1
    S = CInt(InputBox("Введите номер строки с итогами", "Параметр", S))
    With ActiveSheet
        .Rows(S).EntireRow.Font.Bold = True
    End With
    
End Sub

Спасибо за ответ!
Да, это VBA.
Подскажите пожалуйста, что ввести в команде "Параметр" ?

[Vega-NGC]

Кстати строка с итоговыми данными динамична, то есть, по мере течения времени текущего года, данных становится больше, соответственно итоговая строка сдвигается ниже...
Необходим макрос, который будет автоматически применять жирный шрифт к последней итоговой строке, которая является частью таблицы данных.

[Aleksandr H.]

Sub makeMeBold3()
    Dim S As Long
    With ActiveSheet
        S = Cells(.Rows.Count, 1).End(xlUp).Row
        .Rows(S).EntireRow.Font.Bold = True
    End With
End Sub

[Vega-NGC]

Сообщение от Aleksandr H.

Sub makeMeBold3()
    Dim S As Long
    With ActiveSheet
        S = Cells(.Rows.Count, 1).End(xlUp).Row
        .Rows(S).EntireRow.Font.Bold = True
    End With
End Sub

Вы Гений! С данным макросом всё получилось!

Благодарю Вас!