Option Explicit
Private Sub Ausfüllen()
Dim Zeile As Long, R As Long
Dim rng As Range, Arr, lastInd&
Zeile = 1
With ActiveSheet
Set rng = .Range(.Cells(Zeile, 1), .Cells(.Rows.Count, 2).End(xlUp))
End With
Arr = rng.Value
For R = 1 To UBound(Arr)
If Arr(R, 1) <> "" Then
lastInd = Arr(R, 1)
End If
If Arr(R, 2) <> "" Then
Arr(R, 1) = lastInd
End If
Next
rng.Value = Arr
rng.Columns(2).Copy rng.Columns(8)
End Sub