Sub lizTest()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet3")
    Dim lrow As ListRow
    Dim table As ListObject
    Set table = ws.ListObjects("Table3")
    Dim sFileFields, formField As String
    Dim currentCell As String

    sFileFields = ""
    
    Dim i As Integer
    For i = 2 To table.ListRows.Count
        Set lrow = table.ListRows(i)
        currentCell = lrow.Range(1, 1).Address
        
        Dim j As Integer
        For j = 1 To 12
            formField = Replace(Range(currentCell).Value, "-", j & "-")
            sFileFields = sFileFields & "<</T(" & formField & ")/V(" & Range(currentCell).Offset(0, j).Value & ")>>" & vbCrLf
        Next j
    Next i

Debug.Print sFileFields

End Sub