VBA ilə xanalara məlumatlar necə daxil edilir?

Sub Melumat_daxil_etmek()
Range("A1") = "Valyuta" 'Bu halda A1-xanasina "Valyuta" sozu yazilir
Range("B1") = "=A1" 'Bu halda ise B1-xanasi A1-deki melumata beraber olur
Range("A5:A10") = "USD" 'Bu halda ise A5-den A10-a kimi butun xanalara "USD" sozu yazilir
Range("A11:A15") = "=A1" 'Bele oldugu halda A11-den A15-e qeder butun xanalar muvaffiq olaraq A1,A2,A3,A4 ve s ile tamamlanir
Range("A11:A15") = "=$A$1" 'Burada ise A1-i mutleqleshdiririk ve A11-den A15-e qeder butun xanalar A1-e beraber olur
Range("A16") = "=Sum(C1:C10)" 'Burada ise "C1:C10" araliginda olan reqemlerin cemini A17-ye yazilmasini teyin edirik
End Sub