Copy Columns from Workbook to MasterWorkbook

try replacing this line of code to transpose the data

from :

 wrk.Range("a" & lrow).PasteSpecial xlPasteAll

to:

wrk.Range("a" & lrow).PasteSpecial Paste:=xlPasteAll, Transpose:=True

to copy the range that you have mentioned

change this line of code from :

  ActiveSheet.UsedRange.Copy

to:

 ActiveSheet.range("b5:iv53").Copy