Speichern mittels VBA

Sub auto_open()
Dim i As Long
For i = 1500 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
If ActiveSheet.Cells(i, 30).Value 

Gruß, Klaus