naveeddil
New Member
Hello All,
I recently requested some macro, and thanks to @p45cal who shared below macro at POST.
Can someone explain the below macro as I want some modification in it but am unable to understand it.
I recently requested some macro, and thanks to @p45cal who shared below macro at POST.
Code:
Sub addtoSummarysheet(Destn) 'added this sub
With Sheet1
Set rngtocopy = Intersect(.Range("A:A"), .Rows("10:25000")).SpecialCells(xlCellTypeVisible)
Destn.Resize(rngtocopy.Cells.Count) = .Range("P3").Value
End With
For Each are In rngtocopy.Areas
Destn.Offset(, 1).Resize(are.Rows.Count, 2).Value = are.Resize(, 2).Value
Destn.Offset(, 3).Resize(are.Rows.Count, 6).Value = are.Offset(, 9).Resize(, 6).Value
Set Destn = Destn.Offset(are.Rows.Count)
Next are
End Sub
Can someone explain the below macro as I want some modification in it but am unable to understand it.
Last edited: