Combine 2 functions into 1 macro (VBA)

Thanks, ill try it and let you know...
Tried it but it does not work, it gives an error on the transpose part, strange because in standalone it works!! I did swap transpose 1 line down because it had to open the workbook first.