Sub test()

Worksheets(2).Activate

lastrow = Range("A3").End(xlDown).Row

For i = 3 To lastrow

    If Cells(i, 8) <> "" Then
    Range(Cells(i + 1, 8), Cells(i + 1, 9)).Select
    Selection.Insert Shift:=xlDown
    Cells(i + 1, 9).Value = Cells(i, 2).Value
    Else
    Cells(i + 1, 9).Value = Cells(i, 2).Value
    End If

Next i

End Sub