Insert 36 string to cell?

[airbatucampur92@gmail.com]

Hi all,

I have this 36 list.
How to insert it in cell from range A3 to A38 when i press the button?
I try code example below, but it didt work. I think it is wrong plus i'm still new in vba.

Sub test()Dim month As Variant


month = Array("Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dis")
Worksheets("Sheet1").Range("C7:N7").Value = month



End Sub

BAR
BEE
BEI
BEM
BSG
CTM
CTO
CTS
DEG
EBK
ECT
FEE
FEI
FEM
FGA
FVI
IPR
LGS
NOX
NTM
OBA
OTH
PDR
PKG
PLA
PLM
PSG
RCV
REL
RPR
RTX
SAR
SED
SFT
SMK
SMT

Thanks!

[p45cal]

List36 = Array("BAR", "BEE", "BEI", "BEM", "BSG", "CTM", "CTO", "CTS", "DEG", "EBK", "ECT", "FEE", "FEI", "FEM", "FGA", "FVI", "IPR", "LGS", "NOX", "NTM", "OBA", "OTH", "PDR", "PKG", "PLA", "PLM", "PSG", "RCV", "REL", "RPR", "RTX", "SAR", "SED", "SFT", "SMK", "SMT")
Range("A3:A38").Value = Application.Transpose(List36)

'or if the list size varies:
'Range("A3").Resize(UBound(List36) + 1).Value = Application.Transpose(List36)

[snb]

sheet1.range("C7:N7")= Application.GetCustomListContents(3)
sheet1.range("C8:N8")= Application.GetCustomListContents(4)


sn=split("BAR,BEE,BEI,BEM,BSG,CTM,CTO,CTS,DEG,EBK,ECT,FEE,FEI,FEM,FGA,FVI,IPR,LGS,NOX,NTM,OBA,OTH,PDR,PKG,PLA,PLM,PSG,RCV,REL,RPR,RTX,SAR,SED,SFT,SMK,SMT",",")
cells(3,1).resize(ubound(sn)+1)=application.transpose(sn)