Survey Response Scrubber is not compiling

Hi All,

Wrote some programming but it has been a while and its just not compiling the way I thought it would. The VBA program is set to clean survey responses (the operators did not put the answer in the same excel cell relative to the question cell so i wrote a program to clean and organize. Open to all suggestions that work. Thank you in advance!

Sub ScrubData()
Dim i As Integer
Dim j As Integer
 

For i = 2 To Sheets.Count

Worksheets(i).Activate

 

 For j = 1 To 130
 
    If (j Mod 2) = 0 And j >= 8 And j <= 24 Then
          Call twoliner(j)
          
                  
    End If
    If j = 26 Then
        fourliner (j)
    End If
    If j = 30 Then
    twoliner (j)
    End If
    
    If j = 32 Then
        indentedtwoliner (j)
    End If
    If j = 34 Then
        indentedthreeliner (j)
    End If
    If (j Mod 2) <> 0 And j >= 37 And j <= 46 Then
        twoliner (j)
    End If
    If j = 47 Then
        fourliner (j)
    End If
    If j = 51 Then
        threeliner (j)
    End If
    If j = 54 Then
        twoliner (j)
    End If
    If j = 56 Then
        threeliner (j)
    End If
    If j = 59 Then
        twoliner (j)
    End If
    If j = 61 Then
        threeliner (j)
    End If
    If j = 64 Then
        Worksheets(i).Range("c66:c69").Delete
        Sevenliner (j)
    End If
    If j = 71 Then
        threeliner (j)
    End If
    If j = 74 Then
        threeliner (j)
    End If
    If j = 77 Then
        threeliner (j)
    End If
    If j = 80 Then
        threeliner (j)
    End If
    If j = 83 Then
        fiveliner (j)
    End If
    If j = 88 Then
        threeliner (j)
    End If
    If j = 91 Then
        threeliner (j)
    End If
    If j = 94 Then
        threeliner (j)
    End If
    If j = 98 Then
        Worksheets(i).Range("c99").Delete
        fiveliner (j)
    End If
    If j = 103 Then
        threeliner (j)
    End If
    If j = 106 Then
        threeliner (j)
    End If
    If j = 109 Then
        threeliner (j)
    End If
    If j = 112 Then
        threeliner (j)
    End If
    If j = 115 Then
        threeliner (j)
    End If
    If j = 118 Then
        fiveliner (j)
    End If
    
  
    Next j

Next i

End Sub

Sub twoliner(j As Integer)

    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(d" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & ",j" & j & ",k" & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & ",j" & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 1).Delete
       
    
End Sub
Sub indentedtwoliner(j As Integer)
    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(e" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & "j," & j & "k," & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & "j," & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 1).Delete
End Sub
Sub threeliner(j As Integer)
    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(d" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & "j," & j & "k," & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & "j," & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    ActiveWorksheet.Range("a" & j + 2).Value = "=Concatenate(c" & j + 2 & ",e" & j + 2 & ",f" & j + 2 & ",g" & j + 2 & ",h" & j + 2 & ",i" & j + 2 & "j + 2 ," & j + 2 & "k," & j + 2 & ",l" & j + 2 & ",m" & j + 2 & ",n" & j + 2 & ")"

    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ",a" & j + 2 & ")"

    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 3).Delete
End Sub
Sub indentedthreeliner(j As Integer)
    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(d" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & "j," & j & "k," & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & "j," & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    ActiveWorksheet.Range("a" & j + 2).Value = "=Concatenate(c" & j + 2 & ",e" & j + 2 & ",f" & j + 2 & ",g" & j + 2 & ",h" & j + 2 & ",i" & j + 2 & "j + 2 ," & j + 2 & "k," & j + 2 & ",l" & j + 2 & ",m" & j + 2 & ",n" & j + 2 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ",a" & j + 2 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 2).Delete
    
End Sub
Sub fourliner(j As Integer)
 
    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(d" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & "j," & j & "k," & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & "j," & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    ActiveWorksheet.Range("a" & j + 2).Value = "=Concatenate(c" & j + 2 & ",e" & j + 2 & ",f" & j + 2 & ",g" & j + 2 & ",h" & j + 2 & ",i" & j + 2 & "j + 2 ," & j + 2 & "k," & j + 2 & ",l" & j + 2 & ",m" & j + 2 & ",n" & j + 2 & ")"
    ActiveWorksheet.Range("a" & j + 3).Value = "=Concatenate(c" & j + 3 & ",e" & j + 3 & ",f" & j + 3 & ",g" & j + 3 & ",h" & j + 3 & ",i" & j + 3 & "j + 3," & j + 3 & "k," & j + 3 & ",l" & j + 3 & ",m" & j + 3 & ",n" & j + 3 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ",a" & j + 2 & ",a" & j + 3 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 3).Delete
End Sub
Sub indentedfourliner(j As Integer)

    ActiveWorksheet.Range("a" & j).Value = "=Concatenate(d" & j & ",e" & j & ",f" & j & ",g" & j & ",h" & j & ",i" & j & "j," & j & "k," & j & ",l" & j & ",m" & j & ",n" & j & ")"
    ActiveWorksheet.Range("a" & j + 1).Value = "=Concatenate(c" & j + 1 & ",e" & j + 1 & ",f" & j + 1 & ",g" & j + 1 & ",h" & j + 1 & ",i" & j + 1 & "j," & j + 1 & "k," & j + 1 & ",l" & j + 1 & ",m" & j + 1 & ",n" & j + 1 & ")"
    ActiveWorksheet.Range("a" & j + 2).Value = "=Concatenate(c" & j + 2 & ",e" & j + 2 & ",f" & j + 2 & ",g" & j + 2 & ",h" & j + 2 & ",i" & j + 2 & "j + 2 ," & j + 2 & "k," & j + 2 & ",l" & j + 2 & ",m" & j + 2 & ",n" & j + 2 & ")"
    ActiveWorksheet.Range("a" & j + 3).Value = "=Concatenate(c" & j + 3 & ",e" & j + 3 & ",f" & j + 3 & ",g" & j + 3 & ",h" & j + 3 & ",i" & j + 3 & "j + 3," & j + 3 & "k," & j + 3 & ",l" & j + 3 & ",m" & j + 3 & ",n" & j + 3 & ")"
    
    ActiveWorksheet.Range("b" & j + 1).Value = "=Concatenate(a" & j & ",a" & j + 1 & ",a" & j + 2 & ",a" & j + 3 & ")"
    
     
    
    ActiveWorksheet.Range("b" & j + 1).Copy
    ActiveWorksheet.Range("c" & j + 1).PasteSpecial (xlPasteValues)
    ActiveWorksheet.Range("b" & j + 1).Delete
    ActiveWorksheet.Range("a" & j & ":a" & j + 3).Delete
End Sub