Макрос на вставку строк: настроить на несколько столбцов с формулами - VBA

Формулировка задачи:

есть макрос, который вставляет строки. в одном из столбцов есть формула, макрос работает. нужно настроить макрос на несколько столбцов с формулами...

Решение задачи: «Макрос на вставку строк: настроить на несколько столбцов с формулами»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
 
    Dim lLastRow As Long
    Dim lLastColumn As Long
    Dim i As Long
    
    'Определение последней заполненной строки по столбцу A.
    lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    'Определение последнего заполненного столбца по первой строке.
    lLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    'Копируем последнюю строку в строку ниже.
    Rows(lLastRow).Copy Rows(lLastRow + 1)
    
    'Удаление данных из ячеек, где нет формул.
    For i = 1 To lLastColumn Step 1
        If Cells(lLastRow + 1, i).HasFormula = False Then
            Cells(lLastRow + 1, i).ClearContents
        End If
    Next i
 
End Sub
                        