You might have to change
Sub AddDataRow(Table1 As String, values() As Variant)
To
Sub AddDataRow()
 Dim Table1 As String, values As Variant