Daten aus bestimmten Zellen übernehmen und in ein neues Excel File einfügen

B7   -> A1
B64  -> A2
B121 -> A3
B178 -> A4
?

B4   -> ?

Sub Kopieren()
QZellen = Array("B4", "B7", "B9", "B11", "B13", "B15", "B17", "Q4", "Q5", "Q6", "Q8", "Q10", "Q12", "Q14", "Q16", "Q18") 'Quell-Zellen  
QInkr = 57 'Zeilenabstand  
QBisZeile = 6217 'Daten in der Quelltabelle bis zu dieser Zeile  

ZDatei = "D:\Neu.xlsx" 'Datei "Neu"  
ZAbZeile = 3 'Eintrag ab Zeile  
ZAbSpalte = 1 '=A; Eintrag ab Spalte  

Set Alt = ActiveSheet
Set Neu = Workbooks.Add

ZSpalte = ZAbSpalte 'Spaltenzähler Zieltabelle setzen  
For Each QZelle In QZellen 'alle Quell-Zellen durchgehen  
    QAbZeile = Range(QZelle).Row 'QuellZeile und ...  
    QSpalte = Range(QZelle).Column '... -Spalte ermitteln  
    
    ZZeile = ZAbZeile 'Zeilenzähler Zieltabelle setzen  
    
    For QZeile = QAbZeile To QBisZeile Step QInkr 'bis zur angegebenen letzten Quell-Zeile hochzählen  
        Neu.Sheets(1).Cells(ZZeile, ZSpalte).Value = Alt.Cells(QZeile, QSpalte).Value 'Wert übertragen  
        ZZeile = ZZeile + 1 'nächste Zeile in der Zieltabelle  
    Next
    ZSpalte = ZSpalte + 1 'nächste Spalte in der Zieltabelle  
Next

Neu.SaveAs ZDatei 'neue Datei speichern  

MsgBox "Fertig."  
End Sub

:: Ein Ordner mit aktuellem Datum erstellen und Umbennante Bildernamen in eine Liste einfügen
set CURRENTTIME=%TIME%

:: - Zusammensetzung Archivname, ich weiss nicht ob DATE Parameter stimmen, aber funktioniert!
set ARCHIVNAME=%DATE:~0,2%_%DATE:~3,2%_%DATE:~6,6%_PHOTOS

:: - Verzeichnis erstellen
mkdir F:\BILDER\%ARCHIVNAME%

:: - Erzeugt - verschiebt - startet Texteditor mit aktuellem Datum fuer Bilder und Internetlinks
:: - Datei F:\BILDER\MyConfigs\Text_fuer_Links.txt manuell erstellt.

copy /Y F:\BILDER\MyConfigs\Text_fuer_Links.txt F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.txt
dir /b F:\BILDER\%ARCHIVNAME%\*.jpg > F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.txt

start F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.txt

::Batch bis zu Ende...
::Dann Bilder im Internet laden und links manuel im F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.txt einfügen und speichern.

:: Umbennante Bildernamen in Excel (-.csv) einfügen
set CURRENTTIME=%TIME%

:: - Zusammensetzung Archivname
set ARCHIVNAME=%DATE:~0,2%_%DATE:~3,2%_%DATE:~6,6%_PHOTOS

:: - Verzeichnis erstellen

mkdir F:\BILDER\%ARCHIVNAME%

:: - Erzeugt - kopiert - startet Excel mit aktuellem Datum fuer Bilder und Internetlinks
:: - F:\BILDER\Bilder_Nummer_und_Links.csv manuell erstellt.


copy /Y F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.txt F:\BILDER\Bilder_Nummer_und_Links.csv

copy /Y F:\BILDER\Bilder_Nummer_und_Links.csv F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.csv

start F:\BILDER\%ARCHIVNAME%\%ARCHIVNAME%.csv