Jak to mám udělat ???

1 krok zapis do souboru
2 krok cist soubor, a naplnit s nim bunky
3 krok posuneme bunky a zprava a zleva vlozime cokoliv

Tady jsem něco skusil ale hlásí to chybu a nevím jak dál.. Prosím poradte

Dim aa As Long

Open "d:\school\high.txt" For Random As #1
aa = (Cells(1, 1))
Write #1, aa

Close #1