Как записать вложенный оператор If внутри другого оператора If, чтобы добиться нужного эффекта?

Sub Макрос1() 
 ' заполняет пустые ячейки выделенного диапазона
    Columns("D:D").Select
    Dim cell5 As Range, ra5 As Range
    ' ограничиваем выделенный диапазон используемой областью листа
   Set ra5 = Intersect(Selection, ActiveSheet.UsedRange)
 
    If ra5 Is Nothing Then
        MsgBox "В выделенном диапазоне нет пустых ячеек!", _
               vbExclamation, "Нечего заполнять"
    Else
        Application.ScreenUpdating = False    ' отключаем обновление экрана
 
        ' перебираем все ячейки в выделенном диапазоне
       For Each cell5 In ra5.Cells
            ' если ячейка не ранва соседней ячейке, делаем следующее
           If cell5.Value <> cell5.Offset(0, -1).Value Then
                                                         If Trim(cell5.Offset(1, -1)) = "" Then cell5.Offset(1, -1) = cell5.Offset(0, -1).Value - cell5.Value
                                                         Else
                                                         cell5.Offset(1, 0).EntireRow.Insert
                                                         'cell5.Insert Shift:=xlDown
                                                         cell5.Offset(1, -1).Value = cell5.Offset(0, -1).Value - cell5.Value
                                                         cell5.Offset(1, 0).Value = cell5.Offset(0, -1).Value - cell5.Value
                                                         End If
                                                         cell5.Offset(0, -1).Value = cell5.Value
      Next cell5
   End If
 
End Sub