VBA to copy-paste visible cells only

[swapnilk]

Hello,

I am using the undernoted code to copy data from one sheet to other but the code copies all rows and columns to the new sheet. I want to copy only visible cells, please help me modify the code.

Sub Summarize()
    Range("A1:EB62").Select
    Selection.Copy
    Sheets("Print").Select
    Range("A1").Select
    lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & lMaxRows + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("A1").Select
End Sub

 

[abhi1687]

replace
Selection.Copy

with this:

Selection.SpecialCells(xlCellTypeVisible).Copy

 

[My Aswer Is This]

Try this:

Sub Summarize()
    Range("A1:EB62").SpecialCells(xlCellTypeVisible).Copy
    Sheets("Print").Select
    Range("A1").Select
    lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & lMaxRows + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("A1").Select
End Sub