Sub GenerateReport()
Application.ScreenUpdating = False
Sheets("query").Select
Range("B1:B1000,E1:E1000,F1:F1000,H1:H1000,I1:I1000,J1:J1000,K1:K1000,N1:N1000").Select
Selection.Copy
Sheets("Compare").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub