Whats wrong with this code Excel not printing

[Static]

in the section at the bottom (where u are adding data) you are not referencing excel or the workbook.

ActiveCell.value = "City"
Rows("1:2").Select

should be

xls.ActiveCell.value = "City"
xls.Rows("1:2").Select
or
shWorkSheet.ActiveCell.value = "City"
shWorkSheet.Rows("1:2").Select