Excel VBA – сделайте что-нибудь, если ячейки в диапазоне начинаются с определенной строки

Как было предложено выше, я модифицировал использование цикла For...Next.

Sub Bold ()
Dim rcell As Range, BoldRange As Range
Set BoldRange = Sheets("Formatted Data").Range("A13:A100000")

For Each rcell In BoldRange.Cells
    If rcell.Value Like "     *" Then rcell.Font.Bold = True
Next rcell
End Sub

Несколько советов, которые помогут сделать ваш код более эффективным.

• Обрабатывать только диапазон, в котором есть данные
• Загрузка данных в массив и проверка их значения
• Применить стиль шрифта сразу

Документация Майкрософт:

Свойство Range.End (Excel)

Метод Application.Union (Excel)

Sub Bold()
    Dim rcell As Range, dataRange As Range, BoldRange As Range
    Dim lastRow As Long, oSht As Worksheet
    Set oSht = Sheets("Formatted Data") ' modify as needed
    lastRow = oSht.Cells(oSht.Rows.Count, "A").End(xlUp).Row
    Set dataRange = oSht.Range("A13:A" & lastRow)
    Dim arrData: arrData = dataRange.Value
    Dim i As Long
    For i = LBound(arrData) To UBound(arrData)
        If arrData(i, 1) Like "     *" Then
            If BoldRange Is Nothing Then
                Set BoldRange = oSht.Cells(i, 1)
            Else
                Set BoldRange = Application.Union(BoldRange, oSht.Cells(i, 1))
            End If
        End If
    Next i
    If Not BoldRange Is Nothing Then
       BoldRange.Font.Bold = True
    End If
End Sub