Your code has a lot of problems, as I mentioned briefly in the comments. Try to see if the code below worked for you.
Private Sub CommandButton1_Click()
    Dim SurveyData
    
    
    Dim Tb1, Tb2 As word.Table
    Dim irow, icol, i, j, Tabnum As Integer
    Dim Strng As String
    Dim RowCount, Responsevalue As 

 
    
Top comments (0)