tiedot kommenttikenttään omille "sarakkeille"

Tarkoitatko mahdollisesti jotain tällaista:
Sub kommentti()                                                                                    
On Error Resume Next                                                                             
   Set alue = Worksheets("Sheet1").Range("A1:F10")                                        Set komm = Worksheets("Sheet2").Range("A1")                                        
   If Intersect(Selection, alue) Is Nothing Then                                                   komm.Comment.Delete                                                                          Else                                                                                                         nC = alue.Columns.Count                                                                          r1 = WorksheetFunction.Max(alue.Row, Selection.Row)                                  r2 = WorksheetFunction.Min(alue.Row   alue.Rows.Count - 1, _                                                 Selection.Row   Selection.Rows.Count - 1)                      l = 0                                                                                                     For Each s In alue                                                                                      l = WorksheetFunction.Max(l, Len(s)   2)                                                 Next s                                                                                           
      rivit = komm.Comment.Text                                                                      If Len(rivit) > 0 Then rivit = rivit & Chr(10)                                                  For R = r1 To r2                                                                                         For C = 1 To nC                                                                                         rivit = rivit & Left(alue(R, C) & Space(l), l)                                                Next C                                                                                                  If R < r2 Then rivit = rivit & Chr(10)                                                         Next R                                                                                           
      With komm                                                                                               .AddComment                                                                                         With .Comment                                                                                          .Visible = False                                                                                       .Text Text:=rivit                                                                                     With .Shape.TextFrame                                                                               .Characters.Font.Name = "Courier New"                                                       .Characters.Font.Size = 8                                                                         .AutoSize = True                                                                                 End With                                                                                            End With                                                                                           End With                                                                                            End If                                                                                                 End Sub

Kiitos Tämmönen vb-koodista.
Hieman repeillyt tuo koodi näyttää olevan, mutta varmaankin toimiva.
Pitääkö tämä tulla johonkin tiettyyn paikkaan eli moduuliin, tiettyyn Tauluun vaiko Tähän työkirjaan ja onko tuo sellainen, että se on jatkuvasti aktiivinen -huono ilmaisu- vai pitääkö se "käynnistää" jotenkin että tekee jotain?

Tulee moduliin ja sitä pitää kutsua erikseen. Sen voi linkittää vaikka nappiin. Makro liittää muuttujassa komm määrätyn solun kommenttiin tiedot alueen A1:F10 niiltä riveiltä, jotka ovat maalattuna. Kommentti poistetaan, jos aktiivinen solu on tuon alueen ulkopuolella. Makro ei tarkista rivien järjestystä tai sitä tuleeko sama rivi useaan kertaan. Alla sama makro ilman yritystä muotoilla sitä luettavammaksi.

Sub kommentti()
On Error Resume Next
Set alue = Worksheets("Sheet1").Range("A1:F10")
Set komm = Worksheets("Sheet2").Range("A1")
If Intersect(Selection, alue) Is Nothing Then
komm.Comment.Delete
Else
nC = alue.Columns.Count
r1 = WorksheetFunction.Max(alue.Row, Selection.Row)
r2 = WorksheetFunction.Min(alue.Row alue.Rows.Count - 1, Selection.Row Selection.Rows.Count - 1)
l = 0
For Each s In alue
l = WorksheetFunction.Max(l, Len(s) 2)
Next s

rivit = komm.Comment.Text

If Len(rivit) > 0 Then rivit = rivit & Chr(10)
For R = r1 To r2
For C = 1 To nC
rivit = rivit & Left(alue(R, C) & Space(l), l)
Next C
If R < r2 Then rivit = rivit & Chr(10)
Next R

With komm
.AddComment
With .Comment
.Visible = False
.Text Text:=rivit
With .Shape.TextFrame
.Characters.Font.Name = "Courier New"
.Characters.Font.Size = 8
.AutoSize = True
End With
End With
End With
End If
End Sub

Kiitos Tämmönen, sain tämän toimimaan varmaan niin kuin sen pitääkin toimia.
Hieman pitikin tosiaan testailla miten tämä lopulta toimi.
Paljon olisi kysymyksiä, mutta koitan ensin viilailla tätä jos se taipuisi kokeiluihini. :)