VBA Paste simple array on sheet

Paste simple array to a sheet, either on a row or a column.

Code:
Sub paste_simple_array_on_sheet()

Dim ws_sheet As Worksheet
Dim array_data() As Variant

'identify worksheet
Set ws_sheet = Worksheets(2)

'create an array
ReDim array_data(1 To 4)

array_data(1) = "Do"
array_data(2) = "Re"
array_data(3) = "Mi"
array_data(4) = "Fa"

'paste the array on a row
ws_sheet.Range(ws_sheet.Cells(40, 1), ws_sheet.Cells(40, UBound(array_data))) = array_data

'paste the array on a column
ws_sheet.Range(ws_sheet.Cells(41, 1), ws_sheet.Cells(41, 1)).Resize(UBound(array_data), 1).Value = Application.Transpose(array_data)

End Sub

-------------------------------
THANK YOU
-------------------------------
For watching my videos,
Your shares
And your comments!

-------------------------------
CONTACT ME
-------------------------------
Send your messages (questions, training requests or creation of files): https://www.kevinbrundu.com/contact/
Stay informed: https://kevinbrundu.com/en/homepage

-------------------------------
ONLINE COURSES
-------------------------------
Find all the news and links of my online courses on my website https://kevinbrundu.com/en/homepage

-------------------------------
SOCIAL NETWORKS
-------------------------------
Website: https://kevinbrundu.com/en/homepage
LinkedIn: https://www.linkedin.com/in/k%C3%A9vin-brundu-9a910241/?locale=en_US