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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!