Loop through Variant filling Range

[288enzo]

I'm trying to learn more about looping and using a variant.

How close am I to getting the result

Copy of 2021_CertReadinessReport_ASE_AudiSouthern_10162021.xls
	A
1	Area 80
2	Area 82
3	Area 82a
4	Area 82b
5	Area 83
6	Area 83a
Sheet1

Sub yetanothertest()
Dim rng As Range, m As Long, Var As Variant
Var = Array("Area 80", "Area 82", "Area 82a", "Area 82b", "Area 83", "Area 83a")
Set rng = Range("A1")
For m = 1 To 6
Range("A" & m).Value = Var
Next m
End Sub

Thank you

 

[288enzo]

​

No my bad 'cause I had no time to edit before the site maintenance was launched …​

​

See my post #7.​

Thank you for all the help. Much appreciated