Sub Maj_Data()
Range('AA2').Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range('AE2').Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll ToRight:=10
Range('AP2').Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range('B2').Select
End Sub