Hier mein Makro mit dem ich bisher gearbeitet habe:
Sub ausfuellen()
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Or _
Cells(1, 1).Value "" Then
Range("AX2:CA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
End If
Selection.FillDown
End Sub
Danke schon mal im vorausLG Marc