Auto Fill Down

Sub zellen_auffuellen()
Dim i As Integer
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select                                 'Auswahl der Startzelle
Range(Selection, Selection.End(xlToRight)).Copy     'Kopieren bis Ende Zeile, Befehl Copy'
'Die Schleife guckt in alle Zellen in Spalte B einmal hinein, bis zur letzten beschriebenen.
'Wenn in der jeweiligen Zelle was steht, wird der kopierte Bereich ab DV eingefügt.
For i = 1 To Sheets("data").Range("B65536").End(xlUp).Row
If Not (Sheets("data").Cells(i, 2) = "") Then
ActiveCell.Offset(1, 0).PasteSpecial
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
Call pivot
End Sub