Hi Hoping someone can help keep getting the following error when macro is ran. The Macro is:-

Private Sub CommandButton1_Click()
Sheets("Input Data").Select
ActiveSheet.Range("Import_Data").Select
Selection.ClearContents
Sheets("Input Data").Select
ActiveSheet.Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Pivot Table").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTable
Sheets("Macros").Select
ActiveSheet.Range("A1").Select
End Sub


Please anyone help