Copy cell contents for multiple columns and put into a comment for a cell in another column

Sub TBLTcomments()
'
' TBLTcomments Macro
' Takes various info including broker and CUSIP and puts into cell comment of the security description.
' Requires SHEET1 EXPANDED COLUMNS instead of the old SHEET 1 as the starting point.
'
'
Dim Ws As Worksheet
Dim LR As Long
Dim Rng As Range
Set Ws = ActiveSheet
LR = Ws.Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Ws.Range("A3:A" & LR)
For Each Cell In Rng.Cells
    Dim I As Range
    Dim L As Range
    Dim J As Range
    Dim K As Range
    Dim M As Range
    Dim N As Range
    Set I = Cell.Offset(0, 8)
    Set L = Cell.Offset(0, 11)
    Set J = Cell.Offset(0, 9)
    Set K = Cell.Offset(0, 10)
    Set M = Cell.Offset(0, 12)
    Set N = Cell.Offset(0, 13)
    With Cell
            .ClearComments
            .AddComment "CUSIP: " & I.Value & " Sec Short Name: " & L.Value & " Trade Date: " & J.Value & " Broker ID: " & K.Value & " Trader Login: " & M.Value & " Security Type: " & N.Value
    End With
Next
End Sub

Select allOpen in new window