Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Sub ee26208387() Application.ScreenUpdating = False Application.EnableEvents = False Dim wsFrom As Worksheet Dim wsTo As Worksheet Dim rFrom As Range Dim rTo As Range Set wsFrom = Sheets("Source") Set wsTo = Sheets("Sheet2") Set rFrom = wsFrom.Range("A2") Set rTo = wsTo.Range("A7") While rFrom <> "" rFrom.Resize(, 6).Copy rTo rFrom.Resize(, 6).Copy rTo.PasteSpecial xlPasteValues rFrom.Offset(3, 4).Resize(, 13).Copy rTo.Offset(, 6) Set rFrom = rFrom.Offset(5) Set rTo = rTo.Offset(1) Wend Application.EnableEvents = True Application.ScreenUpdating = True Application.ScreenUpdating = False Call Headers Call Checkbox_Data Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.