Getting Error 400 with following code. How do I remove it?

Hi everyone,

I'm getting an error 400 when I'm running the following code:

Sub Run_Sensitivities()

' This macro is designed to automatically calculate sensitivities within the sensitivities worksheet.

' Code for the calculation of WTI sensitivity.
If Range("Switch_WTI") = "On" Then
Range("Table_WTI").Select
Selection.Table RowInput:=Range("Sensi_WTI")
Calculate

Range("Clear_WTI").Select
Selection.Copy
Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, Skipblanks:=False, Transpose:=False
Else
End If
End Sub


How do I get rid of the error 400?

Thanks,

Paula

Please read the Forum Rules and then wrap your code with Code Tags.