Copy and Pasting Data

[ERed1]

Hey everyone,

I am trying to Copy data from one sheet and paste it into another. I want the rows that are hidden to stay hidden when they are being pasted instead of reappearing. I am guessing it is a Paste option, but I don't know which one. Thank you in advance.

Here is my code I am using:

If Range("B16").Value = "Pizza" Then
Sheets("Part Number Creation").Range("A16:D19").Copy
Sheets("Finished").Activate
lastrow = Range("A65536").End(xlUp).Row
Cells(lastrow + 5, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Part Number Creation").Range("A21:D30").Copy
Sheets("Finished").Activate
lastrow = Range("A65536").End(xlUp).Row
Cells(lastrow + 1, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

 

[ParamRay]

Try replacing the 2nd line with:

Sheets("Part Number Creation").Range("A16:D19").SpecialCells(xlCellTypeVisible).Copy

Do similar for the 6th line.

 

[ERed1]

It worked for all but one. I am going to see if I can fiddle with the one thats not working and keep you updated. Thanks a lot for the code!

 

[ERed1]

I got it to work for all of them. Thanks a lot!