How do I get the macro to end itself once all the data has been taken
elsewhere?

If IsEmpty("Q2") Then Exit Sub?
Else 'do nothing - it's still got data I want it to continue the macro
End If? 'here there is an error message of "End If without Block If"