If you see the attached Excel file, some rows is having short height. How to ensure the above to achieve what I expect to have?
Str2 = "A" & Trim(CStr(I)) & ":AP" & Trim(CStr(I)) Worksheets(Sheet0).Range(Str2).Copy 'Workbooks(OrigBook).Activate RowID2 = RowID2 + 1 Worksheets(Sheet0 & " Copy").Range("A" & Trim(CStr(RowID2))).PasteSpecial Paste:=xlPasteFormats
|create excel pivot chart||12||44|
|VBA Challenge how to code to loop through all files in folder and revise some part of the codes||15||42|
|EXCEL formual to calculate Quarter||6||38|
|microsoft word document highlighting a screenshot||8||28|