Macro to insert cell comments from a list in another sheet

Hello!

I am a beginner in using VBA code, so I am not very good at writing new macros. I would really apreciate any help of yours.
Does anyone know how can I insert cell comments on a range of cells existing on a sheet, comments that should be taken from another range of cells which is on another sheet.
I mean, more specific: I have Sheet1 that contains range A1:A200 with different text values in cells and I have Sheet2 where I'd like to insert comments on A1:YYY1 containing data in previously named range. These comments must be also transposed. Is there a possibility to do this? Thank you so much.

Thank you so much. It works fine.
But what about if I don't know the range from sheet1? I have to use this macro for several workbooks and they have different ranges...so I'd like it to be more general.

One more question. What if the first cell on sheet1 with text is A4? I am trying to figure it out, but I have an error.

I tried this, but it return error 400. Obiouvsly, I am doing something wrong.

Sub Com()

Dim iCount1 As Integer, iMax As Integer, iCount2 As Integer
iMax1 = Range("I" & Rows.Count).End(xlUp).Row
iMax2 = Range(Columns.Count & "1").End(xlUp).Column
On Error Resume Next
For iCount1 = 1 To iMax2
For iCount2 = 4 To iMax1
Sheets("S2").Cells(1, iCount1).AddComment Sheets("S2").Cells(iCount2, 1).Value
Next
Next
End Sub

I solved it. The 2 "for" iterations were a very bad idea because I realised later it wasn't what I needed.

Thank you so much for your help.

Have a nice day!

I'd like to know one more think. How do I run this macro from another workbook? It doesn't work for another one.