Thank you for your response, I have incorporated the changes recommended. However, I still am not getting an error when I run this script which reads as "evaluated to non-numerical values for all sampling points in the \region with boundaries {{[Infinity],0.},{0,6}}.
a = 3
b = 0.0137
c = 0.0023
Q = 6
NIntegrate[
Im[Exp[-I x c + b (I x y/(y^a - I x))]]/x, {x, 0, \[Infinity]}, {y,
0, Q}, AccuracyGoal -> 10]
